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listado e instrucciones para su uso 
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Nuevos gráficos 
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Bañarían, 
Army Mores 

y Cray 5, 
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vida 
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y entornos 
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POR FIN HA SIDO 
CAPTURADO 
EL PERSONAJE 
MAS ESCURRIDIZO 




Joven o viejo, seguro que te han divertido las aventuras 

de estos viejos conocidos. 
Esta es tu oportunidad para convertirte en el personaje 
dei Correcaminos, en un juego todo acción y emoción. 
Corre a través de los desiertos, las autopistas o el cañón 
del Colorado, siguiendo el rastro del alpiste, que tanto 
te gusta. Pero... ¡ojo con el Coyote! Seguro que utilizará 
todos sus sucios trucos para capturarte y poder comer su 
plato favorito... "Correcaminos con patatas fritas. " 
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Hemos seguido un largo camino juntos a lo largo de 
100 números, casi 4.000 paginas dedicadas a toda 
la gama de productos Amstrad. Durante todo este 
tiempo nos hemos esforzado por seguir de cerca todos y 
cada uno de los modelos de la marca, intentando dar al 
lector, semana a semana, una panorámica informativa de 
todos los aspectos, a nuestro parecer, relevantes. 

Esta preocupación se ha traducido, como nuestros 
lectores saben muy bien, en un aumento considerable en el 
número de páginas de la revista a partir del número 65, que 
sin duda alguna marcó un hito en la historia de AMSTRAD 
Semanal. 

El número 100, por lo significativo y rendondo, parece 
ser un buen punto de arranque para iniciar una nueva 
etapa de renovación y cambio hacia mejor. 

Para ello, hemos contado con muchos argumentos de 
peso, entre ellos el nuevo enfoque que parece caracterizar la 
política de Amstrad: un decantarse hacia los ordenadores 
personales, sin prisa pero sin pausa, y, lo que es más 
importante, sin abandonar ningún producto en el camina. 

Para responder a este cambio de situación, y mantener a 
la vez un clima informativo completo y atractivo, creemos 
que la mejor solución es aumentar considerablemente el 
número de páginas de la revista y cambiar su periodicidad, 
esto es, pasar a ser mensuales. 

Estamos firmemente convencidos de que este nuevo 
enfoque nos va a permitir abordar todos los temas, 
relacionados con Amstrad al nivel de profundidad 
suficiente, ofreciendo unas páginas en las que cada lector 
encuentre una gran cantidad de artículos y secciones de 
interés, tenga el ordenador que tenga: CPC, PCW o PC. 
También sabemos por anticipado que esta nueva idea será 
tan bienvenida como de costumbre por parte de nuestros 
lectores, que a lo largo de 100 números nos han apoyado y 
sostenido sin descanso por el simple hecho de leernos, 
aconsejarnos y criticarnos. Esperamos que esta actitud se 
mantenga a partir del número 1 de AMSTRAD Personal, hijo 
predilecto y sucesor, dentro de una línea de continuidad, de 
AMSTRAD Semanal, y que estará en su quiosco a primeros 
del mes de octubre. 
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A partir de este verano la 
importante compañía Compaq, 
se establece en nuestro país 
para distribuir personalmente 
sus productos. 
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Tratamiento de textos con 
Gem Write, y Guía del 
programador para el IBM PC, 
son los libros más destacados 
de este número. 



CPC 
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Cargador Universal.— Eí fin de 




los problemas en la copia de 
programas en Código 
Máquina. 
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Imágenes fractales.— Los 

grandes genios del cine de 
imaginación se han esforzado 
por plasmar en sus fotogramas 
nuevos y fantásticos paisajes. 
Esta es una de sus técnicas. 
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Más posibilidades para el 
CPM. — Aprenda a manejar los 
colores de su Amstrad desde 
este sobrio sistema operativo. 
Además, descubra todas las 
facetas ocultas el comando 
PIP. 
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Poker.— Una nueva 
implementación de este 
conocido juego. ¿Quién se 
atreve? 




Abstract.— Una original y 
divertida nueva forma de jugar 
con naipes franceses. 
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Un programa completo para 
PC, que hará las delicias de 
los amantes de los gráficos 
estadísticos y que sorprende 
por su fácil manejo y cuidada 
presentación. 




68 MUNDO DEL PC 

Simphony.— Uno de los 

clásicos del software para PC 
y una de las grandes 
posibilidades con que cuenta 
nuestro Amstrad 1512 
Conózcalo. 
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El almacenamiento de 
información es uno de los 
grandes retos de todo sistema 
informático. Un disco duro de 
20 megas en tarjeta puede ser 
una solución. 

PCW 
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Formato de ¡os documentos.— 

Aprenda cómo utilizar y 
aprovechar al máximo su 
procesador de texto. 

Juegos 

36 Shadow Skimmer 

Con Shadow Skimmer vamos a 
tener la posibilidad de 
demostrar nuestra habilidad 
de combatientes, todo ello en 
un ambiente gráfico de alta 
calidad. 

42 Nuevos gráficos poro 
grandes juegos 

Una imagen vale más que mil 
palabras, dicen, pero en este 
pensamos que más. 

50 Previews 

Los juegos del momento para 
volver a coger el joystick con 
ganas. 
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Como todos los años por estas 
fechas, la mayoría de las 
casas de software preparan nuevos 
juegos para Amstrad, todas con la 
intención de sacarlos al mercado 
entre finales de septiembre y 
principios de octubre. 

Zafiro va a distribuir un juego 
de la casa inglesa Domar, llamado 
The Living Day Light, basado en 
la última película de James Bond, 
que fue estrenada en España en el 
mes de julio. Piranha distribuirá 
Mister Weems y los vampiros, 
una tétrica aventura llena de 
laberintos y sarcófagos. Élite 
prepara un paquete de tres juegos, 
que incluye Airwolf 2 (simulador 
de vuelo de un helicóptero), 3DC 
y Great Gurianos. 

Dinamic sacará, a primeros de 
octubre, un juego de gráficos 
conversacionales, titulado 




cada vez que se empieza a jugar y 
sin ellas es imposible alcanzar 
nuestro objetivo. 

La casa que parece tener más 
juegos en proyecto para esta 
temporada es Topo y todos ellos 
serán distribuidos por Erbe. 
Stardust reproduce un combate 
galáctico en el que tenemos que 
manejar siete naves para llegar a 
la base en la segunda parte del 



Novedades 
para el otoño 



Megacorps. Será el primero que se 
venda con una nueva marca 
comercial, llamada Dinamic AD 
Serie Aventuras, en la que 
Dinamic incluirá todos sus juegos 
de aventuras, como en este caso, 
mientras que el resto de sus 
juegos, arcades, deportivos, etc., 
aparecerán con el anagrama 
habitual de esta casa. En cuanto 
al nuevo juego, se trata de una 
aventura dividida en dos partes. 
En la primera tendremos que 
atravesar bosques y lagos, luchar 
contra enemigos hasta que 
lleguemos a una ciudad. La 
segunda parte se desarrolla dentro 
de la ciudad. 

Ópera Soft, además de la 
versión del Livingston, supongo 
para PC, prepara el lanzamiento 
de Goody, un entretenido y 
simpático juego en el que nuestra 
misión es atracar el Banco de 
España. Pero antes hay que 
encontrar y comprar doce 
herramientas que, para darle 
mayor emoción, cambian de lugar 



juego. Bang! es un juego con más 
de 300 K en gráficos, que hacen 
necesarias seis cargas y un scroll 
pixel a pixel. Se desarrolla en el 
típico ambiente del Oeste, con 
indios, pistoleros y estrechos 
caminos con sus respectivas 
emboscadas. Proyecto Antares 



presenta una, aparentemente, 
situación en la que un americano 
y un ruso deben unir sus esfuerzos 
para salvar al mundo. Baooum 
tiene un tema bastante real. Se 
sitúa en la I Guerra Mundial y 
pueden jugar hasta tres personas. 
Hay que manejar tanques, utilizar 
la artillería y evitar las 
alambradas de minas. Tentation 
nos transporta a un tiempo en el 
que los combates se realizan en 
las naves situadas en el espacio. 
Casanova, como su nombre nos 
sugiere, nos sitúa en la Venecia de 
este personaje. Tenemos que subir 
a los balcones de las damas por 
medio, no de cuerdas como sería 
lo normal, sino de espaguettis con 
tomate, de manera que lo normal 
es escurrirse y acabar contra el 
suelo o en un canal. Es un juego 
realmente cómico. En Little Devil 
el protagonista es un pequeño 
diablillo al que tenemos que 
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ayudar a cometer todas las 
travesuras que se nos ocurran 
para que no acabe convertido 
en un ángel, algo verdaderamente 
catastrófico para un diablo 
como él. 

Como se puede apreciar los 
temas son realmente variados, van 
de lo cómico a lo tétrico y de las 
aventuras en el futuro a las 
guerras del pasado. Sin embargo, 
continúa habiendo una mayoría 
de arcades sobre los demás tipos 
de juegos. 



Livingstone, suponga 
primer juego para P< 

Opera Soft está terminando la 
versión para PCs de su 
mayor éxito: Livingston, supongo, 
que esperan terminar y sacar al 
mercado hacia finales de 
septiembre o principios de 
octubre. 

El juego está realizado con 
CGA, una de las opciones del PC, 
en el modo que da la posibilidad 
de tener cuatro colores en 
pantalla, aunque se está estudiando, 
para más adelante, utilizar el 
modo CGA de 16 colores. 



Por otra parte, parece que va ha 
convertirse en uno de los juegos 
más versionados de la historia del 
software. Además de las de Spectrum, 
Amstrad y MSX, ya existentes, 
se está trabajando en las de 
Commodore y Atari. En Gran 
Bretaña se ha creado ya la versión 
para el BBC Micro. Y, dentro de 
muy poco tiempo, los poseedores 
de un PC podrán disfrutar de este 
juego, del que se espera, por lo 
menos, tanta calidad como en las 
versiones anteriores. 




de Compaq en España 



Compaq Computer Corporation 
ha creado en España una 
subsidiaria, Compaq Computer, 
S. A., que se encargará de 
comercializar la línea de 
ordenadores Compaq en nuestro 
país, todos ellos compatibles con 
los IBM PC. 

Hasta ahora, los productos de 
esta compañía se distribuían desde 
la sede en Alemania, a través de 
cinco distribuidores oficiales en 
las principales ciudades 
españolas. 

La razón de este cambio es, 
según Bruno Jeanroy, director de 
Ventas y Marketing de Compaq 
Computer, el rápido crecimiento 
de la demanda de ordenadores 
personales en España. Añadió que 
«el establecimiento de una 
subsidiaria española nos permitirá 
satisfacer mejor las necesidades de 
los usuarios, por medio de un 
servicio integral de formación, 
asistencia y apoyo técnico, para el 
creciente número de distribuidores 



oficiales que venden nuestros 
productos en España». 

Los ordenadores Compaq se 
venden en 40 países, a través de 
una red internacional de 3.000 
distribuidores y 
una serie de 
compañías 
subsidiarias (la 
nueva subsidiaria 
española es la 
sexta de Europa), 
con las que 
Compaq ha hecho 
un esfuerzo de 
inversiones. En 
palabras de 
Eckhard Pfeiffer, 
vicepresidente de 
Operaciones 
Internacionales 
de Compaq, 
«continuamos 
incrementando el 
nivel de asistencia 
que ofrecemos a 
nuestros mercados 



internacionales, por medio del 
incremento de nuestras inversiones 
en varios países, en fabricación, 
compras y apoyo a nuestras 
subsidiarias». 
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Hit Pak 

Zafi Chip ha sacado a la venta un 
paquete, Hit Pak, que incluye 
siete buenos juegos a un precio 
bastante atractivo: 1 .750 pesetas 
la cinta y 2.750 el disco, en su 
versión para Amstrad. 

Los juegos que van en este 
paquete son: Scooby Doo, 
Antiriad, 1942, Duet, Split 
Personalities, Jet Set Willy II y 
Fighting Warriors, todos ellos 
recientes y algunos, como el 
Antiriad, de una calidad 
indiscutible. 



Oracle I^ro 



resio 



nal: 



más potencia 
relacional 
para ordenadores 
I con 80286/80386 

Oracle PC es un sistema de 
Gestión de Base de Datos 
Relacional para ordenadores 
personales, desarrollado por 
Oracle Corporation, del que se ha 
anunciado la creación de la 
versión 5, llamada Oracle 
Profesional. 

Entre las características más 
interesantes de esta nueva versión 
es la posibilidad de direccionar 
más de 640 K de memoria RAM y 
corre bajo PC-DOS de IBM, y 
MS-DOS de Microsoft. Usando el 
modo protegido de los 
procesadores 80286/80386, el 




programa direcciona 1 MB en la 
memoria extendida RAM, dejando 
512 Kbytes de memoria básica 
para que el usuario desarrolle 
y ejecute aplicaciones propias. 

Según Rob Rietveld, 
responsable de producto en el 
Área de Microordenadores de 
Oracle Europa, «el uso de 
memoria extendida por Oracle 
Profesional permitirá el desarrollo 
de aplicaciones para grandes 
ordenadores en un PC». 

Esta nueva versión del sistema 
de Gestión de Base de Datos 
Relacional (SGBDR) para PC, si 
se utiliza en el entorno SQL*Star, 
también creado por Oracle 
Corporation, permite al usuario 
de un PC integrarlo en red. Esta 
característica es especialmente útil 
para las empresas. La razón de 
esta posibilidad se encuentra en 
uno de los elementos del 
SQL*Star, el SQL*NET, que 
permite conexiones independientes 
de la red entre ordenadores 
diferentes, utilizando el interface 
Decnet de Digital como soporte 
de protocolos asincrónicos y 
conexión coaxial o remota 3270. 

Oracle Profesional incluye las 
mismas herramientas que Oracle 
para minis y grandes ordenadores, 
y ofrece importantes mejoras en el 
rendimiento de las funciones 
relaciónales más complejas, como 
las combinaciones múltiples de 
tablas y operaciones que 
impliquen clasificación. Sin 
embargo, y gracias al 
SQL*Forms, otro de los 
elementos del entorno SQL*Star, 
los usuarios de PCs, que no sean 
informáticos, pueden realizar 
aplicaciones de forma sencilla y 
rápida, a través de menús muy 
sencillos y herramientas muy 
potentes en el diseño de pantallas. 



Iris 

Sistema integrado 
de gestión 

Los programadores que forman 
Seresco Asturiana, S. A., deben 
pensar, de manera muy lógica, 
por otra parte, que es más 
apropiado tener en una empresa 
los programas necesarios para su 
gestión de una manera integrada, 
que tener que ir comprándolos de 
manera suelta cada uno de ellos. 
Su paquete Iris, destinado al PC y 
sus compatibles, sigue este 
razonamiento y cuenta con tres 
subsistemas, dedicados cada uno 
de ellos a estas funciones: 

— Contable. Consta de los 
módulos de contabilidad general, 
presupuestaria y control de 
cuentas de terceros. 

— Almacén. Está formado por 
los módulos de compras y control 
de stocks. 

— Comercial. Regula la 
facturación y los pedidos. 

El paquete Iris está garantizado 
siempre en su funcionamiento y la 
compañía creadora cuenta con un 
equipo de soporte de clientes para 
la puesta en marcha de su 
producto. También poseen un Hot 
Line telefónico de respuesta 
a cualquier pregunta o cuestión, 
a cerca del Iris. 

Para más información llamar 
al teléfono de Asturias (985) 
23 74 31. 
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PRESENTA 




En un tiempo en que el honor era reverenciado, en el que la gracia y la belleza eran v irtudes, una.raza 

especial de guerreros se apartaron de todo para dedicar sus vidas a hacer del combate una forma 
de arte y una disciplina de la mente que se convirtió en su religión. Conseguir tal grado de perfección 
requería una destreza y autodisciplina tal, que solo unos pocos elegidos conseguían el título de 
"Señor de la Guerra". RENDO, KARATE y finalmente SAMURAI eran las pruebas 
que había que supe rar antes que tal hon or fuese cnncedido^^^^ 
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Cargador Universal 

Por Daniel Calvo 

Los errores, al teclear un programa, son tan 
frecuentes como molestos, especialmente si están 

escritos en Código Máquina. Como solución 
proponemos este Cargador Universal, con el que 
cualquiera puede tener los programas publicados en 
nuestra revista en forma de datas, sin que se 
produzcan los desagradables errores. 

Uno de los mayores 
problemas a la hora de 
copiar un programa de una 
revista, son los errores que 
en este paso se producen. Si 
encima añadimos que el programa 
está escrito en Código Máquina, 
estos errores se multiplican por 
10, la mayoría inexplicables para 
los no expertos en el tema. 

Para evitar en lo posible que 
estos errores y cuelgues del 
ordenador, sean causa de 
suicidios, os presentamos este 
programa, con el que se reducirá 
el número de errores a cotas 
mínimas. 

A partir de ahora, todos los 
programas en Código Máquina 
publicados en la revista se 
ajustarán al formato de este 
programa, el cual es el siguiente: 
primero, la dirección inicial de 
carga del programa, seguido del 
programa dividido en líneas de 24 
caracteres, que no hace falta 
separarlos ni con comas ni con 
espacios, y su correspondiente 
suma de control, que es la suma 
de los bytes de la línea. 

Una vez que tengamos el 
programa que queremos copiar en 
nuestras manos, deberemos 
ejecutar el cargador que os 
presentamos y elegir la primera 
opción. A la pregunta de 
Dirección de Comienzo, 
deberemos introducir el valor que 
figurará en la cabecera del listado 
del programa a copiar. 

Una ves superado este requisito, 
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PROGRAMA EJEMPLO 



DIRECCION DE COMENZO.. AOOO 

1 2185A11140003E2CCDA1BCCD,4F9 

2 6CBB212CA10609CDEDA021B5,524 

3 A10MFCDEDA03EOACD5ABB3E.578 

4 0DCE5ABB215BA10607CDEDA0.573 

5 3A97A1F5E60¿FE00CAF5A0FE,7AE 

6 02CA00A1FE04CA0BA1FE0ÓCA,5B3 

7 16A1F1E601FE01CA21A13E0A,562 
B CD5ABB3E0DCB5ABB2162A106,539 
9 ÜBCDEBA03A95AÍF5D60A380F.5F1 

10 3E3ICD5ABBFID60AC630CD5A.63F 
1! BB180¿F1C630CD5ABB3EOACD,5B7 

12 5ABB3E0DCD5ABB21¿DA1060C,4B3 

13 CDEDA02A98A1CDA4A02179A1,709 

14 060CCDEDA02A9AA1371 11027,450 

15 233E2F3CED5230FBCDE2A011,596 
Ib EB033CED5230FBCDE2A011fc4,A55 

17 003CED5230FBCDE2A0110AOO,5IO 

18 3CED5230FBCDE2A085CDE2A0,7C9 



19 3E0ACD5ABB3E0CC35ABBCD5A, 574 

20 BB3E2F2001231923C97ECD5A,41¿ 

21 BB2310F9C92I35A10606CDED f 56D 

22 A0C34AA02I3BA1060BCDEDA0,5B2 

23 C34AA02143AI0609CDEDA0C3.5BE 

24 4AA0214CA1060¿CDEDA0C34A,56B 

25 A02152A10¿09CDEDAOC352AO,5D2 
2¿ 4E4F4D425245203A20424153,313 

27 49432042494E4152494F2050.320 

28 414E544I4C4C412041534349,33D 

29 492050524F54454749444F54.36A 

30 49504F203A204E2E424C4F51.30C 

31 5545203A204C4F4E2E444I54,304 

32 4F53203A2044495245434349,30F 

33 4F4E203A2000000000000000,117 

34 000000000000000000000000,000 

35 000000000000000000000000,000 

36 000000000000000000000000,000 

37 000000000000000000000000,000 
3B 000000000000000000000000,000 



nos encontraremos en una 
pantalla con tres ventanas y a la 
vez, una de ellas dividida en dos 
por una raya verde, y el número 
de la línea de texto en la que nos 
encontramos. Con esto el 
programa nos quiere indicar que 
está a la espera de datos. 

Si al copiar alguna de las líneas 
del listado la longitud de la misma 
es inferior o superior a los 24 
caracteres, el programa nos 
obsequiará con un mensaje de 
error, ignorando la línea y 
obligándonos a volver a 
introducirla. 

Un error común es la inserción 
de caracteres no hexadecimales 
como si lo fuesen, como por 
ejemplo, una O por un 0. Este 
error también es detectado por el 
programa, y nos mostrará el 
dígito en el que hemos cometido 
el error en vídeo inverso, con lo 
que nos indica que ese carácter no 
es válido, y espera a que 



CARGADOR UNIVERSAL 



10 REM CARGADOR UNIVERSAL 

20 REM 5/G/87 

30 REM DANIEL CALVO 

40 MEMORY 42FFF: DEFINÍ A-Z:SPEED VR 

ITE i 

50 60SUB 11 50: REM CODIGO MAQUINA 

60 MODE i:INK 0,0: INK 1,26: INK 2,14 

MNK 3,i8:B0RDER 

70 LOCATE 12,5:PRINT "1.- INTR0DUCI 

R" 

80 LOCATE 12,7:PRINT '2.- LISTADOS' 
90 LOCATE 12,9:PRINT '3.- SALVAR BI 
NARIO" 

100 LOCATE 12,ll:PRINT "4.- SALVAR 
BASIC" 

110 LOCATE 12,13:PRINT "5.- CARGAR 
BINARIO" 

120 LOCATE 12,15:PRINT "6.- CARGAR 
BASIC" 

130 LOCATE 14,20:PRINT "ELIGE 0PCI0 
N" 

140 K*=INKEY»:IF «♦=*" THEN 140 ELS 
E IF ASC(Kí)<49 0R ASC<K$)>54 THEN 
140 

150 ON VALÍK») GOSUB 170,440,610,66 

0,900,950 

160 60T0 60 

170 IF N0WO0 THEN 200 

180 M00E 1MNPUT "DIRECCION DE COMI 

ENZ0 ",BE6IN 

190 IF BE6IN<-32768 0R BE6IN>32767 
THEN 180 ELSE N0W=i5000:LQN=0:AUT=l 
200 MODE l:UIND0V ll,i,40,l,l:PAPER 
tl,l:PEN tl,0:CLS tÜVINDDU 1,40,2 



,24:VIND0V 12, 1,40, 25, 25: PAPER 42,2 
:PEN I2,0:CLS 12 

210 PRINT tl,TAB(10)"DAT0S"TAB<32)" 
SUMA" 

220 PL0T 448,16,3:DRAVR 0,366:L=1 
230 LOCATE 1,L:PRINT USIN6 "llt'SAU 
TjlINPUT " ",A$:IF AM" THEN RETUR 
N ELSE A*=UPPER*<A*) ¡LOCATE S,L:PRI 
NT M 

240 CHECKSUM=0 

250 IF LEN(A$)<>24 THEN PRINT 12, TA 

B( 12) "LONGITUD ERRONEA" JCHR*(7) :L0C 

ATE 1,L:PRINT SPACE*(40):PL0T 448,1 

6,3¡DRAVR 0,366:F0R T=l T0 500:NEXT 

: PRINT 12: GOTO 230 

260 F0R X=l T0 24:P*=HID*(At,X,l) 

270 IF (P$<"0" 0R P*>"9"> ANO <P*<" 

A" OR P*>"F") THEN GOSUB 410 

280 IF (X H0D 2)-0 THEN CHECKSUH=CH 

ECKSUH+VAL("i"+HID$(A*,X-l,2)) 

290 NEXT 

300 LOCATE 32.LMNPUT ">",CHECKí:IF 
CHECK$="" THEN CHECK*="0* ELSE CHE 
CK$=UPPER*(CHECK4) : LOCATE 33, L: PRIN 
T CHECK* 

310 F0R X=l TO LEN(CHECK*):P$=MID4( 
CHECK* ,X,1) 

320 IF <P*<"0" 0R P*>"9") ANO (P»<" 
A" 0R P*>"F") THEN PRINT I2,TAB(7)" 
CARACTERES NO HEXADECIMALES" ;CHR*(? 
):for T=l T0 500:NEXT:L0CATE 32,l:p 
RINT SPACE$(8):PRINT I2:60TO 300 
330 NEXT 

340 CHECK=VAL("i"+CHECK*):IF CHECK< 



>CHECKSUM THEN PRINT I2,TAB(13)"SUM 
A INCORRECTA"5CHR*(7):FOR T=l T0 50 
o:next:locate 1,L:PRINT SPACE$(40): 
PL0T 448,16,3:DRAVR 0,366:PRINT 12: 
60T0 230 

350 F0R X=l T0 24 STEP 2 

360 BVTE=VAL("i"+MID$(A*,X,2)) 

370 POKE N0V , BYTE: N0W=N0W+ 1 : L0N=LDN 

+1 

360 NEXT 
390 AUT=AUT+1 

400 L=L+l:IF L=24 THEN CLS:G0T0 220 
ELSE 230 

410 LOCATE X+4,L!PRINT CKR$(24);P»; 
CHR$(24) 

420 M=INKEY*:IF M="" THEN 420 
430 IF <K*<"0" 0R K*>"9") AND (K*<" 
A" 0R K$>"F") THEN 420 ELSE LOCATE 

x+4,l:pen i:print k*:mid*ca*,x, d=k 

$:RETURN 

440 REM LISTADOS 

450 IF N0V=0 THEN RETURN 

460 CLS:L0CATE 8,ll:PRINT "["j:PEN 

3:PRINT "P"5:PEN 1:PRINT "IANTALLA 

o C";:pen 3:print "I";:pen i:print 

"IMPRESORA" 

470 K$=UPPER*(INKEY*):IF K$=" 0R N 
0T(K*="P" 0R K$="I") THEN 470 
480 IF K*="I" THEN CH=8 ELSE CH=0 
490 LIN=l:CLS: PRINT ICH, "DIRECCION 
DE COMIENZO. . ";HEX$(BE6IN,4):PRINT 
tCH 

500 F0R X=i5000 T0 NOV-l STEP 12 
510 CHECKSUH=0: PRINT ICH.USING "III 
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introduzcamos el verdadero. 

Una vez superadas con éxito 
todas las comprobaciones, nos 
preguntará por el valor de la 
suma de control, es decir, la suma 
de los datos tomados de dos en 
dos (un byte), y en caso de que 
ésta no coincida con la elaborada 
por el programa, nos avisará con 
un mensaje de error, debiendo 
volver a introducir de nuevo la 
línea. 

Una vez terminado de 
introducir las líneas o 
simplemente, queremos dejarlo 
para más tarde, pero sin perder lo 
introducido hasta el momento, 
deberemos contestar con Enter a 
la primera pregunta, con lo que 
regresaremos al menú principal y 
podremos salvarlo. 

Ésta es la forma de utilizar la 
primera opción del listado, pero 
también disponemos de otras 
cinco opciones. 

La segunda de ella nos 
producirá un listado de lo 




Con este programa los errores 
de "tecleo" en programas 
integrados por "datos", 
quedan reducidos a cero. 



introducido hasta el momento, 
pudiendo elegir si lo queremos 
por pantalla o por impresora, 
respondiendo a la pregunta con la 
inicial de la opción elegida. 

Las otras cuatro se encargan de 
cargar o salvar los datos en cinta, 
siendo la única diferencia el 
formato en que queramos 
tenerlos, ya sea en un programa 
cargador en Basic o en Binario. 

Si elegimos la opción de 
salvarlo en Binario, sólo 



deberemos darle al ordenador el 
nombre con el que lo queremos 
almacenar, pues el programa ya 
tiene su dirección inicial, la 
longitud la ha ido calculando 
durante el proceso de introducción 
de datos. 

Si por el contrario decidimos 
salvarlo en Basic el programa se 
encargará de generar 
automáticamente un programa 
cargador, y los datos los incluirá 
en líneas Data. 
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";lin¡:print kh," 

520 FOR Y=0 T0 11 
530 PRINT #CH,HEX*ÍPEEK(X+Y),2)i 
540 CHECKSUH=CHECKSUH+PEEK(X+Y) 
550 NEXT 

560 PRINT #CH, " , ■ ; HEX*( CHECKSUM, 3) 
570 LlN=LIN+l 
580 NEXT 

590 PRINT "PULSA UNA TECLA" 

600 VHILE INKEY$="":VEND:RETURN 

610 REM SALVAR EN BINARIO 

620 IF N0V=0 THEN RETURN 

630 CLS: LOCATE 6, 10: INPUT "NOMBRE D 

EL FICHERO ",N0M$ 

640 SAVE NOM$,8,J5000,LON 

650 RETURN 

660 REM SALVAR EN BASIC 

670 IF NDV=0 THEN RETURN 

680 CLS: LOCATE 6,10:INPUT "NOMBRE D 

EL FICHERO ",NQM* 

690 LIN=200 

700 0PEN0UT N0M$ 

710 PRINT 19, "10 REM PR06RAKA CAR6A 
DOR" 

720 PRINT #9, "20 FOR X=i"iHEX*(BEGI 
N,4);" T0 &• i HEX * ( BES I N+L0H- 1,4)!" 
STEP 12" 

730 PRINT #9, "30 REAO LINÍ.CHECKKC 
HECKSUM=0" 

740 PRINT 19/40 FOR Y=l T0 24 STEP 
2" 

750 PRINT 19, "50 BYTE=VAL("+CHR*<34 
)+*i"tCHR$(34)+*+MI0*(LIN$,Y,2))" 



760 PRINT 19, "60 CHECKSWKHECKSUH+ 
BYTE" 

770 PRINT #9, "70 P0KE X+Y/2.BYTE" 

780 PRINT 19/80 NEXT" 

790 PRINT #9/90 IF CHECKSUMOVALÍ " 

+CHR*<34)+"i"+CHR$(34)+"+CHECK») TH 

EN PRINT "+CHR*(34)+"ERR0R"+CHR$(34 

)+":END" 

800 PRINT 19/100 NEXTlEND" 
810 FOR X=i5000 T0 N0V-1 STEP 12 
820 CHECKSUM=0: PRINT I9,STR$(LIN)J" 
DATA "! 

830 FOR Y=0 T0 11 
840 PRINT I9,HEX*(PEEK(X+Y),2); 
850 CHECKSUM=CHECKSUM+PEEK(X+Y) 
860 NEXT 

870 print i9//jhex*(checksum,3) 

880 lin=lin+io:next 

890 cl0se0ut: return 

900 rem cargar en binario 

910 cls:l0cate 6,10:jnput "nombre d 

el fichero \nom*:nüm$=upper*(n0m*) 

MF N0M*="" THEN 910 

920 BE6IN=0:L0N=0:CALL 43000, ÍN0M$, 

9BEGIN,eLON:NOW=450CO+LON 

930 AUT=INT<L0N/12)+1 

940 RETURN 

950 REM CARGAR EN BASIC 

960 CLS:L0CATE 6, 10: INPUT "NOMBRE 

EL FICHERO ",NÜM*:AUT=i 

970 0PENIN N0MÍ 

980 LINE INPUT I9,A* 

990 LINE INPUT l9,A*:A=INSTR(A*/i" 



):BE6IN=VAL("i"+MI0í(A$,A+l,4» 

1000 NOV=&5000:LON=0 

1010 VHILE INSTR(A*/NEXT:EN0")=0 

1020 LINE INPUT 19, A» 

1030 VENO 

1040 VHILE N0T EOF 

1050 LINE INPUT I9,A* 

1060 A=INSTR(A$/DATA*):A=A+5 

1070 DAT0*=MIO$(A$,A,24) 

1080 FOR X=l T0 24 STEP 2 

1090 PQKE N0V.VAL("i"+MI0$(0ATD*,X, 

2)):LON=LON+l:NOV=N0V+l 

1100 NEXT 

1110 AUT=AUT+1 

1120 VENO 

1130 CL0SEIN 

1140 RETURN 

USO REM C/H 

1160 FOR X=43000 T0 63032 
1170 READ A*:P0KE X,VAL("I"+A*) 
1180 NEXT: RETURN 

1190 DATA DO,6E,00,DD,66,01,E5,OD,6 
E,02,00 I 66,03,E5 I 00,6E,04, 00,66,05, 
7E,23,5E,23,56 

1200 DATA £8,47,11,70,30^0, 77, BC.E 
1,73,23,72,E1, 71, 23,70,21, 00,50,CD, 
83,BC,C0,7A,BC,C9 
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También podemos recuperar los 
datos para poder continuar con su 
inserción. A tal efecto disponemos 
de otras dos opciones 
dependiendo del formato en que 
hayan sido grabados. Si fue Basic, 
deberemos elegir la última opción, 
y darle al programa el nombre 
con el que fue archivado en cinta, 
y él se encargará de buscar en el 
fichero los datos que necesita. 

En el caso de que queramos 
recuperar un programa salvado en 
forma binaria, al igual que en 
Basic, sólo será necesario su 
nombre, pues el programa leerá la 
cabecera y obtendrá su dirección 
inicial y longitud, por lo que se 
evita el tener que recordar estos 
datos, que normalmente se suelen 
olvidar fácilmente. 

A modo de ejemplo, os damos 
una rutina lectora de cabeceras, 
que averiguará la dirección de 
comienzo y la longitud de un 
programa, además de su nombre 
y número de bloque, y nos los 
mostrará en pantalla. Por último, 
para poder utilizar esta rutina, 
deberéis llamarla con Cali &A000. 

Esto es todo, esperando que no 
se vuelvan a producir errores a la 
hora de copiar un programa en 
Código Máquina. ■ 



f 



Correo,,,, más rápido,,, 



Con el fin de acelerar lo más posible el correo, y poder resolver o contestar a 
todas las dudas y sugerencias que llegan a nuestra redacción, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 

— Suscripciones AMSTRAD. Para todos aquelos casos relacionados con petición 
de cintas, números atrasados, lormalización de suscripciones, devoluciones, ctc 

— Mercado Común AMSTRAD. Compras, ventas, intercambios, clubs... 

— Serie Oro AMSTRAD. Para los programas que nos enviéis para su 
publicación. 

— Sugerencias AMSTRAD. Para vuestras críticas, sugerencias o cualquier 
opinión que queráis vertir sobre la revista. 



EL FANTASTICO 
MUNDO DE 
LAS IMÁGENES 
FRACTALES 




El programa que hoy proponemos desde esta 
artística sección le va a permitir obtener 
hermosas representaciones de montañas, 
utilizando para ello un complejo algoritmo muy 
conocido y usado en el cine de fantasía e 

imaginación. 



L 



/a geometría fractal pertenece a una de 
esas extrañas ramas matemáticas cuyo 
cometido roza lo incomprensible. Su 
fundamento básico es el estudio de unas 
curvas (variedades, dirían los puristas) que se 
encuentran más allá del mundo 
unidimensional de las líneas, pero que no 
alcanzan la bidimensionalidad de las 
superficies; de ahí su cabalístico nombre, 
fractal, y que pretende explicar la dimensión 
fraccionaria de su naturaleza. 

Una de las aplicaciones que los no 
matemáticos supieron encontrarle a estas 
teorías fue la elaboración de asombrosas 
montañas, y fue precisamente Lucas Film, 
famosa compañía dedicada a la realización de 
películas con grandes efectos especiales, quien 
desarrolló el proceso que formaría muchas de 
las montañas que aparecen en sus fantásticos 
paisajes. 

Naturalente, no podemos pretender que en 
nuestro pequeño CPC o incluso en nuestro 
PC 1512, vayan a producirse imágenes 
excesivamente realistas. La necesidad de 
grandes resoluciones, paletas de color muy 
amplias y elevadas capacidades de cálculo y 
memoria, relegan este tipo de aplicaciones al 
terreno de los grandes ordenadores, que' 
quedan muy lejos de nuestras capacidades. 
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No obstante, lo que sí podremos es obtener 
una aproximación de estos sorprendentes 
resultados en el monitor de nuestro equipo, y 
sobre todo y lo que es más importante, 
aprenderemos la forma en la que se realizan. 

El proceso de formación de la montaña se 
fundamenta principalmente en la 
transformación de un triángulo, del cual 
generaremos cuatro nuevos triángulos, de cada 
uno de los cuales generaremos cuatro nuevos 
triángulos, y así sucesivamente. En la imagen 
que ilustra la fase 1 podemos apreciar el 
triángulo con el que comenzaremos a trabajar. 
Lo primero que va hacer nuestro programa es 
calcular los puntos medios de 




cada lado. Posteriormente movemos este 
punto medio en la vertical, en un factor 
proporcional a la longitud del lado. De esta 
forma obtendremos tres puntos, que junto a 
los tres vértices del viejo triángulo van a 
formar cuatro nuevos triángulos, como 
puede apreciarse en la imagen de la fase 2. En 
este caso en particular, el incremento ha sido 
negativo y por eso los puntos medios han bajado. 

Si a cada uno de estos cuatro triángulos le 
aplicásemos el proceso anteriormente descrito, 
lo que obtendríamos es algo parecido a lo que 
se muestra en la fase 3. 

Según aumenta la fase, iremos obteniendo 



FASE 2 



cada vez un mayor numero de triángulos, y la 
perfección de nuestra montaña y su realismo 
será también cada vez mayor. 

En nuestro caso particular, tanto en la 
versión CPC como en la versión PC, 
alcanzamos una profundidad de seis niveles. 
Dado que comenzamos con un triángulo, el 
número final de triángulo que tendremos será 
de 1x4x4x4x4x4 , lo que supone 
exactamente la cifra de 1.024 triángulos. Y 
para el caso de que queramos profundizar un 
nivel más, la cifra sería ya de 4.096. 



La forma en la que nuestro programa, en 
ámbas versiones, almacena los triángulos es 
muy simple. Para ello utilizamos dos matrices, 
VX y BY, de 1.200 por 3. En VX 
almacenamos las coordenadas X de los tres 
vértices y en BY las coordenadas Y. 
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FRACTALES PARA PC 1512 



10 RAND0HI2E 
11MND0H OPEN 
12WINDDW FULL 

20 DIH ixOJ.iyOí.vxí^OO.SJ.byítfOO.S) 

40 vx(i l i)=1000¡by(l,l)=500 

50 vx ( 1 , 2) =4000: by ( i , 2)=4500 

60 vx(l,3)=7000:by(i,3)=500 

70 n=t:pun=2 

80 CLS 

Bl FOR k=l T0 5 

82 FOR n=l T0 pun-1 

90 REH calcula nuevos triángulos 

110 incr= 0.4*RN0-0.15 

120 iy(l)=((by(n,l)+by(n,2))/2)+incri 

(SSRtftvxín.D-vxín^D^+íbyín.D-byfn^))^)) 

130 •x(l)=(vx(n l l)+vx(n f 2))/2 

140 iy(2)=((by(n,2)tby(n f 3))/2)*incr» 

(S0R(((vx(n,2)-vx(n,3)) A 2)+(by(n I 2)-by(n I 3)) A 2)) 

150 ■x(2)=(vx(n,2)+vx(n,3))/2 

160 •y(3)=((by(n,3)+by(n,l))/2)+incrt 

(SQR(((vx(n f 3)-vx(n,n) A 2)+(by(n,3)-by(n f n) A 2)) 

170 ■x(3)=(vx(n l 3>tvx(n,l))/2 

180 REH sustituye triangulo n por los tres nuevos 

190 vx(pun,l)=ix(l):by(pun,l)=iy(l) 

200 vx(pun,2)=vx(n I 2):by(pun,2)=by(n,2) 

2 10 vx (pun , 3) =ix (2) : by (pun , 3) =ny ( 2) 

220 pun=pun+l 

230 vx(pun,l)=ix(3):by(pun,i)=ty(3> 
240 vx (pun , 2)=ix (2) ¡ by (pun , 2)=ty (2) 
250 vx(pun,3)=vxCn,3):by(pun,3)=by(n ( 3) 
260 pun=pun+l 

270 vxtpun, 1) =§x (3) : by (pun , 1 ) =«y (3) 
280 vx(pun,2)=ix(l):by(pun,2)=iy(l) 
290 vx(pun,3)=ix(2):by(pun,3)=»y(2) 
300 pun=pun+l 

310 vxtn.D^xtn.Dtbytn.D^yln.l) 
320 vx(n,2)=ix(l):by(n,2)=iy(l) 

330 vx(n,3)=nx(3):by(n,3)=ny(3) 

331 NEXT n 

332 NEXT k 

340 REH dibuja triángulos 

350 REH 

360 FOR i=l T0 pun-1 

370 UNE vx(i l l)jby(i l l),vx(t,2)jbyU l 2) 
380 UNE vx(i,2)jby(i I 2) I vx(i,3);by(i,3) 
390 UNE vx(i l l);byto l l),vx(a l 3);by(a l 3) 
400 NEXT 
410 GOTO 410 
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Para realizar la transformación lo que 
hacemos es coger los puntos medios de cada 
triángulo y les aplicamos un incremento 
aleatorio, extraído en la línea 110 del 
programa. En nuestro programa hemos dado 
unos valores comprendidos entre — 0.15 y 
0.25, para la versión PC y entre — 0.15 y 0.15 



FRACTALES PARA CPC 



1 DEFINT b 

2 INK 0,1 :INK 1,26:PEN 0:PAPER 1 
10 RANDOMIZE TIME 

20 OIM MX(3),MY(3),VX(1200, 3) ,BYU200,3) 
30 M0DE 2 

40 VX<1,1)= 50 :BY(1,1)=40 
50 VX<1,2)=275:BY(1,2)=180 
60 VX(1,3)=550:BYU,3)=40 
70 N=l:PUN=2 

80 CLS 

81 FOR K=l T0 5 

82 FOR N=l T0 PUN-1 

90 REM calcula nuevos triángulos 

100 REM sustituye triangulo n por los tr 

es nuevos 

110 INCR= RND*0.3-0.15 

120 MYCl)=UBY<N,l)+BY(N.2))/2)+INCR*<SQ 
R<ÍCVX(N,1)-VXCN,2))*2)+(BY(N,1)-BYCN,2) 
)*2)) 

130 MX(1)=(VX(N, l)+VX(N,2))/2 

140 MY(2)=((BY<N,2)+BY(N,3))/2)+INCR*(SQ 

R(C (VX(N,2)-VX(N,3))-2)+(BY<N,2)-BY(N,3) 

)*2)) 

150 MX(2)=<VX(N,2)+VX(N,3))/2 

160 MY(3)=((BY<N,3)+BY(N,l))/2)+INCR*<SQ 

R(((VX(N,3)-VX(N,l))-2)+(BY(N,3)-BY(N,l) 

K2>) 

170 MX(3)=(VXCN,3)+VX(N,l))/2 

180 REM sustituye triangulo n por los tr 

es nuevos 

190 VX(PUN,1)=MX(1):BY(PUN,1)=MY(1) 
200 VX(PUN,2)=VX(N,2):BY(PUN,2)=BY(N,2) 
210 VX(PÜN,3)=MX(2):BY(PUN,3)=MYC2) 
220 PUN=PUN+1 

230 VX(PUN,1)=MX(3):BY(PUN, 1)=MY(3) 
240 VX(PUN,2)=MX(2):BY(PUN,2)=MY(2) 
250 VX(PUN,3)=vX(N,3):BY(PUN,3)=BY<N,3) 
260 PUN=PUN+1 

270 VX(PUN,1)=MX(3):BY<PUN,1)=MY(3) 
280 VX(PUN,2)=MXC1):BY(PUN,2)=MY<1) 
290 VXCPUN,3)=MX<2):BY<PUN,3)=MY(2) 
300 PUN=PUN+1 

310 VX(N,l)=vX(N,l):BY(N, 1)=BY(N,1> 
320 VX(N,2)=MX(l):BY(N,2)=MYf 1) 

330 VXCN,3)=MX(3):BY(N,3)=MYC3) 

331 NEXT N 

332 NEXT K 

340 REM dibuja triángulos 

350 REM 

360 FOR M=l T0 PUN-1 

370 PL0T VX(M,1),2*BY(M,1):DRAW VXCM.2) 
,2*BY(M,2) ,0 

380 DRAW VX(M,3),2*BYCM,3) 
390 DRAW VX(M,1>,2*BY(M,1) 
400 NEXT 
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para la versión CPC. Nótese que estos valores 
permanecen constantes en cada triángulo, y se 
emplean para modificar los puntos medios de 
cada uno de los lados. 

Una vez que obtenemos estos nuevos 
puntos, los incluimos en nuestro array, 
sustituyendo el viejo triángulo, que ya no nos 
sirve para nada, por el nuevo, por uno de los 
generados, y poniendo el resto al principio de 




lo que nos queda libre del array. 

Una vez que hemos realizado la 
transformación de todos los triángulos, 
comenzamos de nuevo la tarea, y así hasta 
cinco veces que son controladas por el bucle 
de la línea 81 a 332. 

El bucle final es el encargado de pintar 
todos los triángulos en la pantalla, formando 
de esta manera una montaña aleatoria, más o 
menos convincente. 

Existen varios parámetros que pueden ser 
modificados, y con los que obtendremos 
resultados totalmente distintos, que se prestan 
a ser experimentados. Lo primero que 
podemos cambiar el es triángulo inicial. Para 
ello deberemos modificar los valores de las 
líneas 40, 50 y 60. La profundidad es otro de 
los valores que podremos alterar variando la 
constante (5) del bucle por un valor más bajo, 
ya que no hay memoria para más. Por último, 
podremos variar el intervalo del incremento, 
modificando los valores de la línea 1 10. 

El resultado de todo esto no es una 
variedad fractal, pero si nuestro ordenador 
fuese capaz de realizar esta tarea infinitas 
veces y nosotros la paciencia, la enorme 
paciencia de esperarle, lo obtenido sí que 
sería una variedad de estas características. 
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J trucos 



No se alarme 

por Roberto Aya 

NUESTRO amigo Roberto nos 
envía un sencillísimo truco, a la 
vez que útil. Una alarma que el 
ordenador emite cuando se mueve 
el joystick. Ideal para ladrones 
«jugones», amigos pelmazos y 
demás personal que posee la 
envidiable cualidad de 
interrumpirnos con el famoso 
«asunto importante» en aquellos 
momentos álgidos en los que el 
byte y servidor son uno con el 
Cosmos. 



10 REH ALARMA 

20 REH POR ROBERTO AYA 

30 REH 

40 CLSUNK 0,0:PAPER 0:80R0ER 

50 IF J0Y(0K>0 THEN GOTO 60 ELSE GOTO 40 

60 ENT 1,2,17,70 

70 S0UN0 1,71,140,15,,! 

80 GOTO 60 

90 EN0 



¿Le suena? 



por Fernando Muñoz Maqueda 

LA cosa va de alarmas por 
ordenador, por si a alguien le 
suena, pero con circuito incluido. 
El nivel de sofisticación se va 
haciendo mayor. Muy a grandes 
rasgos, la línea 120 del programa 




actúa como un pequeño 
temporizador. El bucle tarda unos 
tres minutos en ejecutarse. Tras 
este lapso, cualquier intento de 
abrir la puerta se traducirá en un 
monumental escándalo organizado 
por el Amstradcerbero. Salvo en 
el improbable caso de un caco 
sordo, cuyo minusválido percal, 



sin duda nos impeliría a hacerle 
donación de cualquier enser que 
tuviera a bien llevarse, el infarto 
de miocardio del latrocinador es 
cosa hecha. En fin, y en honor 
del Horado marqués de Sade, de 
gloriosa memoria, ¿qué tal si 
encima le diera corriente? Cacos 
no, gracias. 




10 REM ALARMA DE CASA 


K 3,0,6 


20 POR FERNANDO MAQUEDA 


120 PEN 3: LOCATE 3, 5: PRINT "AT 


30 REM 


ENCION" 


40 REM RETARDO 


130 PEN i: LOCATE 7, 10: PRINT "P 


50 F0R a=l T0 180000:NEXT 


UERTA": LOCATE 7, 15: PRINT" AEIER 


60 REM FUNCIONAMIENTO 


TA* 


70 M0DE l:INK 0,0:B0RDER 0:M 


140 PEN 2IL0CATE 3,20:PRINT 1 


1,0 


AURORES' 


80 PRINT JOY(l) 


150 ENT -9,20,10,l,20,-10,l:S0 


90 IF J0Y(1)=0 THEN G0SUB 110 


UNO 1,1, 1000,15,, 9 


100 IF J0YÜ)=1 THEN M0DE 2:60 


160 PEN 2: LOCATE 3, 20: PRINT "L 


T0 70 


ADR0NES" 


110 M0DE 0:INK 1,20: INK 2,6: IN 


170 GGTO 150 



Cómo encontrar a 
los primos 

por Jaime Saura 

LOS avispados negociantes, 
tiburones de Wall Street y demás 
émulos de Curro Jiménez mejor 
que no sigan leyendo. Esto es un 
programa para encontrar números 
primos contenidos entre un rango 



determinado y va muy deprisa. Su 
autor nos explica por qué. 

Vamos a suponer que nuestro 
margen de números es del 250 en 
adelante. Sacaremos la raiz 
cuadrada: da 15,8113, que no es 
impar exacto. Acto seguido, 
cogeríamos el impar superior, el 
17, y lo sustituimos por el 13 que 
hay en la línea 70. Si el límite 
inferior es, por ejemplo 529, cuya 
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raíz cuadrada sí es impar exacto, 
y vale 23, bastaría con colocar en 
el mismo sitio que en el caso 
anterior dicho número. Para 
hacerse una idea del aumento de 
velocidad que la receta consigue, 
lo mejor es hacerlo y luego repetir 
el proceso sin la sustitución. 



!0 DEFINÍ a-z 

20 CLS: INPUT "limite inferior" 
;inf:IF inf <1 THEN 20 
30 CLS: INPUT "Limite superior" 
;sup:IF supünf THEN 30 
40 DIH prim(8000):IF inf =1 THE 
H prim(l)=l:numpnm=!:inf=2:IF 
sup=l THEN 90 

50 IF inf =2 THEN numpna-numpr 
im+i:prim(numprim)=2:IF sup=2 
THEN 90 

60 IF inf H0D 2=0 THEN inf=inf 
+1 

70 FCR este=inf TO sup STEP 2: 
F0R i»par=3 TG este/13 STEP 2: 
IF este M0D i*par=0 THEN 80 EL 
SE NEXT:numpri«=numprim+l:prim 
(numprim)=este 



80 NEXT este 

90 i=0:F0R lista=I TO numprim: 
creo=pri»í lista): IF creo=3 0R 
creo=15 0R creo=21 0R creo=25 
0R creo=27 0R creo=33 0R creo= 
35 0R creo=49 0R creo=5S 0R cr 
eo=77 0R creo=121 THEN 110 
100 i=i*l:PRINT"Primo numero"! 
i;":";creo:IF i HDD 24=0 THEN 
PRINT'pulsa una teda":CALL &B 
6:CLS 




Scrrroll 



por Lucio Fernández Arias 

CASI se oye el chirrido de los 
bytes arrastrándose por la pantalla 
cuando el ordenador 
trabajosamente ejecuta este 
programa. Por ello, creemos que 
el título está justificado. Es una 
prueba más de lo que el 



microprocesador del monitor del 
Amstrad puede hacer cuando se le 
invoca adecuadamente. 



Grado a grado 

por Víctor Díaz 

ESTE programa no tiene vuelta 
de hoja. Realiza las conversiones 
pertinentes entre cuatro sistemas 
de medir la temperatura distintos. 
Ideal para suicidarse cuatro veces 
durante las calinas de agosto. 




10 N00E 2 

20 LOCATE 20,l0:PRINT"«enu" 
30 LOCATE 20.1l:PRINT"Tec!ee:" 
40 LOCATE 20,12:PRINT"i-E<]uiva 
lencia entre grados centígrado 
s,Reaiour,Farenheit,Kelvin pos 
itivos" 

50 LOCATE 20,13:PRINT"i-Equiva 
lencia entre grados centígrado 
s,Reaiour,Farenheit,KeIvin neg 
ativos" 

60 LOCATE 20,16: INPUT "Opción 

elegida (l-2)",n 

70 0N n G0SUB 90, 180 

80 CLS: GOTO 10 

90 F0R c=0 T0 1000 

100 PRINT "CentigradosttReaiou 

rttFarenhei tttKel vin 

110 r=80tc/100 

120 f=180tc/100+32 

130 k=273+c 

140 PRINT t.r.f.k 

150 NEXT c 

160 IF INKEY$=" THEN 160 
170 RETURN 

180 F0R cl=0 T0 -1000 STEP -1 

190 PRINT 'CentigradosUReamou 

rttFarenheitttKelvin 

200 r=8Mcí/100 

210 f=lB0td/100+32 

220 k=273+cl 

230 PRINT cl,r,f,k 

240 NEXT el 

250 IF INKEY$=" THEN 250 
260 RETURN 




La regla más 
sencilla 

por Esteban Liado 

DE todas las formas de llevar a 
cabo un scroll de pantalla, la más 
simple y elemental es ésta. No es 
el summun de la sofisticación, 
pero funciona y sirve 
perfectamente para incluirlo en 
programas Basic. No se puede 
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Vt\ pedir más a tres líneas de 

O programa que, dicho sea de paso, 

O caben en una. 
5* 



10 FOR i'! T0 25 

20 LOCATE l,l:PRINT CHR$(8) 

30 NEXT i 



Lo que el viento 
se llevó 

por Esteban Liado 

ESTA rutina, tan corta como 
espectacular, reproduce con 
notable perfección el estallido de 
un avión u ovni cualesquiera en 
su fatal encuentro con un 
obstáculo. Esperamos verla 
aparecer pronto en los programas 
de lectores. 



10 REH Choque de avión 

20 MÜDE 

30 CLS 

40 B0RDER 7 

50 ENV 1,1-15,1,3,0,20,15,-1,1 


60 SOUN0 7,2100,0,0,1,0,15 
70 END 



Sueños de hacker 

por Alfonso Guzmán Bravo 

LOS hackers son aquellas 
personas a las que les encanta 
jugar con el ordenador y, en su 
persecución de lo prohibido, 
adentrarse más y más en las 
entretelas de la máquina. A ese 
enfoque corresponden los 
programitas que nuestro amigo 
Alfonso nos envía. 
Para ejecutar líneas REM: 

10 REM «Esta línea se ejecutará». 



20 POKE &174,191:GOTO 10 

Desaparición de líneas de 
listado: 

10 REM 

20 REM «Esta línea es 

imposible». 

30 POKE & 185,0 

40 POKE & 172,0 

Por último, para que el listado 
desaparezca completamente y el 
programa no se pueda ejecutar, 
basta teclear: POKE &170.0. 

En el caso nada improbable de 
que se desee recuperar el listado, 
antes de ejecutar el poke anterior 
almacene en una variable su 
contenido original de esta forma: 

antes = PEEK(& 170) 

y, en el momento adecuado: 

POKE &170, antes. 

Formas y fórmulas 

por José María Alonso 
Bermúdez 

NUESTRAS felicitaciones a 
José María por su excelente 
contribución a la sección de 
trucos. No sólo nos envía un 
programita que crea en pantalla 
un dibujo original y bonito, sino 
que también tenemos una serie de 
útiles llamadas a la Rom, a las 
que la imaginación de nuestros 
lectores encontrará un uso pronto. 
Las llamadas son las siguientes: 
CALL &BC04: Desplaza la 
pantalla 1/2 carácter a la derecha. 
CALL &BAOA: Divide los 
caracteres por la mitad. El efecto 
desaparece al cambiar de modo. 
CALL &BD23: Produce un efecto 
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visual (Nota hiriente de redacción: 

enigmático, ¿eh?). 

CALL &BD12: Inicializa el 

sistema operativo con un mensaje 

de «***PROGRAM LOAD 

FAILED***». 



10 DEG 
20 CLS 

30 ORIGIN 320,!2S 
40 PRINT CHR$(I3) 
50 FOR x=l 10 360 
60 PRINT CHR$(13) 
70 a=SIN(x)*!00 
80 b=COS(x)*100 
90 DRfiy a,b:0RAU b,a 
100 DRAWR 20,20 
110 «¡EXT x 
120 GOTO 40 



La botella de Rom 

por Francisco López 

AQUÍ va este sensacional cóctel 
de rutinas que se encontraban, 
hasta ahora, dormidas en la Rom. 
Que trabajen, para eso las pagan. 
CALL &BA34,3: Espera un poco 
y reinicializa el ordenador. 
CALL &BA12: En modo 2 no 
ocurre nada (empezamos bien). 
En modo 1, parte los caracteres 
en 2 mitades iguales, y, en modo 
O, en cuatro. 

CALL &BA10: Convierte las 
letras en absolutamente ilegibles. 
El sueño del programador 
masoca. 

CALL &BA11: Lo mismo en 
modo 2 que con la rutina &BA10. 
En modo O y 1 no ocurre nada. 



Reset o no Reset 

por Javier Espinosa 

LA siguiente rutina desconecta 
el Reset en caliente del Amstrad, 





es decir, pulsando Control, May y 
Esc a la vez no ocurre 
absolutamente nada. 

Si desea que la combinación de 
estas teclas vuelva a actuar, 
ejecutar: 

CALL 40200,0 



10 REM jesconectador de reset 
20 FE!" por javier espinosa 
30 ilEPDRY 39399 

40 FOR i=l TO 22 
50 READ 

60 P0KE (40200+i> ;VAL("S"+jí!: 
NEXT i 

70 DATA fe,01,i0,dti,7e,00,fe,0 
0,28,06, 3e,c3 

80 DATA 32,ee ! bd,c9,3e,c9,32,e 
e,bd,c9 

30 CALL 4-0200, 0:END:REP 40200, 
í para aodo noratal 



AMSTRAD V<, 



ul 21 



68000. 

Guía del Usuario 




GUIA DEL USUARIO 
LIONEL FUEETWOOD 



DESDE la aparición del primer 
microprocesador de Motorola, el 
M6800, ha ido surgiendo toda una 
familia de microprocesadores, 
cada uno de ellos superior a su 
predecesor, a la vez que bajaban 
los precios de los chips. 

El 68000, del que se ocupa este 
libro, tiene un bus de dirección de 
32 bits, registro de datos y 
dirección de 32 bits y un reloj de 
4 a 12.5 MHz. Se ha ido haciendo 
cada vez más popular, de tal 
manera que hoy forma parte de 
ordenadores como el Sinclair QL, 
Apple Mcintosh, Commodore 
Amiga y el Atary ST. 

Así las cosas, el autor propugna 
que la demanda de programadores 
para este procesador va a ser 
«explosiva» y recomienda que se 
aprenda a programar con él. 

Además de enseñar, esta guía 
del usuario tiene la ventaja de 
mostrar cómo se aplican los 
conocimientos adquiridos a 
proyectos reales, analizando en el 
primer capítulo la estructura del 
68000. En los siguientes se explica 
qué es un ensamblador y cómo 
utilizarlo. Especialmente útiles son 
los tres apéndices en los que se da 
una lista completa de la sintaxis 
de las instrucciones, las entradas 
CCR y una tabla sobre los modos 
de direccionamiento. 

El objetivo del libro queda 
bastante claro en las palabras de 
Lionel Fleetwood: «nadie dice que 



UBROS 



el lenguaje ensamblador sea fácil, 
pero creo que esta aproximación 
nos ayudará a hacerlo lo más 
simple que sea posible». 



Título: 68000. Guía del Usua- 
rio 

Autor: Lionel Fleetwood 
Editorial: Ra-Ma 
Páginas: 180 
Precio: 1.900 pías. 



Sistemas expertos 
para ordenadores 
personales 

LA Inteligencia Artificial es una 
parte de la informática cada vez 
más desarrollada y con resultados 
importantes en diversas áreas, 
tanto que se está investigando ya 
en los ordenadores de la Quinta 
Generación, donde la utilización 
de estas técnicas será exhaustiva. 

Los Sistemas Expertos son 
programas basados en las reglas y 
métodos de la Inteligencia 
Artificial, de manera que simulan 
el razonamiento humano en un 



1 




campo determinado. A la 
introducción y descripción de este 
tema se dedica la primera parte 
del libro. Analizando a 
continuación las estrategias y los 
diferentes lenguajes de 
programación que se utilizan en 
los Sistemas Expertos, con una 
detallada discusión sobre la 
conveniencia de utilizar lenguajes 
de propósito general, como el 
Basic, para la creación de estos 
sistemas. De hecho pueden 
utilizarse, pero existen los 
llamados «lenguajes verdaderos» 
de la Inteligencia Artificial, como 
el Lisp o el Prolog, que fueron 
especialmente diseñados para estas 
tareas. Sin embargo, al ser los 
más conocidos por los usuarios de 
los ordenadores personales, el 
Basic y el Logo se utilizan a lo 
largo del libro en las explicaciones 
y ejemplos de programas. 

Como la idea principal del libro 
es lograr que todo aquel usuario 
que se acerque a él obtenga una 
visión completa y clara de estos 
sistemas y sus aplicaciones, el 
análisis de la Inteligencia Artificial 
está realizado clara y 
detalladamente, de manera que el 
lector sea capaz de comprender 
esta forma de programar y 
aplicarla un poco mejor que antes 
de leer este libro. 



Título: Sistemas expertos para 
ordenadores persona- 
les (Introducción a la 
Inteligencia Artificial) 

Autor: M. Chadwick y J. A. 
Hannah 

Editorial: Ra-Ma 

Páginas: 248 

Precio: 2.200 pías. 



Tratamiento de 
textos con 
Gem Write 

EL tratamiento de textos es una 
de las aplicaciones más extendidas 
del ordenador, especialmente en 
las oficinas. Gem Write es un 
programa de tratamiento de textos 
para el Amstrad PC, un 
ordenador que, aplicado al 
trabajo de oficina de las pequeñas 
empresas, e incluso para los 
particulares, permite utilizar 
recursos hasta ahora sólo 
reservados a las grandes empresas. 

El objetivo principal de este 
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Alustrad PC 



Tratamiento de textos con 

GEM Write 

en el Amstrad PC 




libro es ayudar al lector a 
comprender los programas de 
tratamiento de texto y su 
funcionamiento, en este caso 
concreto el Gem Write, un 
programa bueno y rápido que, 
según el autor, está indicado para 
todos aquellos usuarios que no 
tienen conocimientos de 
informática, ni están 
acostumbrados a manejar un 
ordenador, pero tiene que 
empezar a utilizar un programa 
que procese textos, con la ventaja 
adicional de su precio, 
relativamente barato, y su total 
compatibilidad con los programas 
del entorno Gem, de manera que 
se pueden introducir dibujos y 
toda clase de recursos gráficos 
para alegrar los documentos. 

Está dividido en capítulos. En 
los primeros se hace una 
introducción al Amstrad PC y al 
Gem, para pasar después a la 
explicación general del 
funcionamiento de los programas 
de tratamiento de textos y, en 
concreto, al manejo de Gem 
Write, con todas sus opciones y 
posibilidades. 

En definitiva, un tema 
interesante, para todos los 
usuarios del PC, tratado con gran 
sencillez y acompañado por 
numerosos esquemas, ilustraciones 
y resúmenes. 



Título: Tratamiento de textos 
con el Gem Write en el 
Amstrad PC 

Autor: Mike O'Reilly 

Editorial: A naya Multimedia 

Páginas: 247 

Precio: 2.120 ptas. 



Guía del 
programador 
para el IBM PC 

TODO libro esconde un secreto 
y a éste en particular le ha 
correspondido la difícil tarea de 
desvelar el complejo 
funcionamiento de un PC. 

Su autor, Peter Norton, todo 
un nombre dentro del mundo de 
la microinformática, conocido 
sobre todo por sus programas de 
utilidades, nos adentra en el 
interior del PC, describiendo, a 
través de las 463 páginas con que 
cuenta el libro, todas sus 
posibilidades. 

Los temas que recoge son 
múltiples y variados. Destaca, 
sobre todo, la parte dedicada a la 
descripción del bios, con una 
completa información de los 
puntos de entrada al sistema. 
Utilizando estos puntos, 
multiplicaremos la potencia de 
nuestros programas y tendremos 
un control total de nuestro PC. 

El capítulo dedicado a 
interrupciones es también 
especialmente interesante, 
dándonos las claves para trabajar 
en modo background, lo que nos 
va a permitir ejecutar varios 
programas al mismo tiempo. 

En general, el libro es una 
estupenda herramienta de trabajo, 
con una lectura sencilla para el 
lector avezado, pero que para su 
perfecta comprensión exigirá 
varias horas de trabajo, altamente 
recompensadas por el bagaje de 
conocimientos que nos va a 
otorgar. 
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Título: Guía del programador 

para el IBM PC 
Autor: Peter Norton 
Editorial: Anaya Multimedia 
Páginas: 463 
Precio: 



Programación 
en Lisp 



Programación en 




SI el futuro de la informática se 
encuentra en la Inteligencia 
Artificial, entonces se hace 
imprescindible conocer y saber 
programar en Lisp. 

Esta es la idea que ha movido 
al autor a escribir el libro sobre 
un lenguaje que, además, puede 
utilizarse en toda clase de 
ordenadores. 

Está dividido en tres partes. La 
primera describe de una manera 
bastante sencilla la sintaxis del 
lenguaje. En la segunda se 
analizan las cuatro técnicas más 
usuales en la programación, y en 
la tercera y última se presentan y 
comentan los programas que 
componen un pequeño robot 
inteligente. Es decir, una pequeña 
introducción al mundo de la 
Inteligencia Artificial. 



Titulo: Programación en Lisp 
Autor: C. Queinnec 
Editorial: Paraninfo 
Páginas: 202 
Precio: 
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POSIBILIDADES 

EN CP/M 



El CP/M sí tiene color 

Para los que no Ies guste ni el 
color ni el modo de la pantalla 
con que aparece el CP/M al 
cargarlo, aquí tiene un programa 
que se teclea en Basic y al 
ejecutarlo produce un 
«Color.Com» ejecutable desde 
CP/M (cualquiera de las dos 
versiones). Para el borde, la tinta 
es de 16 y los códigos de los 
colores son los mismos que los del 
Basic. 

Los que estén interesados en el 
lenguaje máquina pueden ver 
cómo se utilizan las llamadas del 
sistema operativo del Amstrad 
desde CP/M, si bien la forma de 
usarlas no es como simples 
llamadas, sino que las direcciones 
se deben colocar después de una 
llamada, que es distinta para las 
dos versiones de CP/M. Para la 
versión 2.2 la llamada se realiza a 
la dirección &BE9B y para la 3.1 
o Plus, la dirección es la &FC5A. 
Los registros a la entrada y a la 
salida, para las dos direcciones 
deben tener los mismos valores 
que requiere la rutina llamada. 

Además, hemos utilizado dos 
llamadas del BDOS para conocer 



por JUAN CARLOS PLAZA 



GENERADOR DE COLOR 
COM 

10 AMSTRAD SEMANAL J.C.P. 

20 MEMORY &8FFF: n=&A000 

30 FOR 1=1 TO 5:FOR j=l TO 10 

: READ a$: b=VAL("8"+a$) ; sco=sco 

+ b:POKE n, b: n=n + l : NEXT 

40 READ s; IF sOsco THEN FFINT 

" ERROR en Unen :"; 1*10+50 : STOP 

50 sco=0:NEXT 

60 DATA 21, 21, A0, 7E, 47, 23. 11, 
0,A3,CD, 843 

70 DATA 8C,BC,ED,4B,2E, A0.2A.3 
0.A0.7E. 1222 

80 DATA CD,95,BC.23,0B,78.B1.2 
0,F6,CD, 1368 

90 DATA 8F, BC.C9, 0C, 43, 4F, 4C, 4 
F.52,20, 959 

100 DATA 20,20,2E,43,4F,4D,55, 
01,00,90, 563 
110 n=&9000 

120 FOR 1=1 TO 34; FOR J=l TO 1 

: READ a$: b=VAL (" &" +a$ > : seo— se 

o+b:FOKE n, b: n=n+l;NEXT 

130 READ s: IF sOsco THEN PRIN 

T" ERROR en linea: " ; 1*10+150 ; ST 

OP 

140 sco=0: NEXT 

150 PRINT" Inserta disco y puls 
a una tecla" : CALL &BB18:CALL S¡ 
A000 

160 DATA OE, 0C, CD, 05, 00, 7D, FE. 



la versión del CP/M e imprimir 
una cadena. Para conocer la 
versión tenemos que cargar el 
registro «C» con el valor &C y 
llamar a la dirección 5. En el 
regreso, el número de versión está 
en «L», según los valores: 
&22 para la versión 2.2 
&31 para la versión 3.1 
Para imprimir una cadena hay 
que dar la dirección de ésta en 
«DE», cargar «C» con el valor 9 
y llamar a la dirección 5, el final 
de la cadena debe ser siempre el 
carácter «$». 



31, 28, 49, 
170 DATA 
ED,01,0E, 
180 DATA 
D6,30,CD. 
190 DATA 
CD.6F, 01, 
200 DATA 
CD.6F.01, 
210 DATA 
CD.6F, 01, 
220 DATA 
FE, 10, 28. 
230 DATA 
CD.9B, BE, 
240 DATA 
IE.01,22, 
250 DATA 
01,22, BD, 
260 DATA 
05, 00, CX, 
270 DATA 
C3.01.AF, 
280 DATA 
BB, 47, FE. 
290 DATA 
3A.30, EF, 
300 DATA 
32, C2, 01 
310 DATA 
DD.3A.C2. 
320 DATA 
OF, B7, ce, 



777 
11, C6, 

794 
01, CD, 

1041 
9B, BE, 

886 
CD.9E, 

969 
CD.9E, 

997 
CD, 9E, 

1306 
06, CD, 

1545 
38, BC, 

919 
48, 01, 

568 
01, 18, 

811 
C9, OE. 

914 
32, C2, 

1331 
OD, C8, 

1413 
3A, C2, 

1016 
78, 12, 

1048 
01, IB, 

727 



01, CD.67 
71, 01, 3A 
OE, BC, 11 
01, F5, 11 
01, F5, 11 

01, 4F. Fl 
9B, BE, 32 
C9, 21, 5A 
22, 4E, 01 
A3.C5.0E 

02, CD.67 
01.CD.9B 
FE, 30, 38 
01, B9.28 
13, CD, BC 
FE, 01, 06 



01, 11, 
C3. 01. 
03, 02, 
18, 02, 
34, 02, 
47, Fl, 
BC, C9. 
FC. 22, 
22, 7C, 
09, CD, 
01, 11, 
BE, 18. 
F3, FE, 
E9, 3C, 
01, 18, 
00, 28, 




No hay quien borre 

Para proteger ficheros contra el 
borrado accidental, en el caso de 
CP/M Plus, tienen que seguir los 
siguientes pasos. Cargar el CP/M 
Plus e insertar el disco que 
contiene la utilidad Sct y teclear 
lo siguiente: 

SET B:NOMBRE [RO] donde 
Nombre es el nombre de un 
programa a proteger. Este nombre 
de fichero admite símbolos 
comodín. Dentro de las opciones 
que se pueden especificar tenemos: 



330 DATA IB, 1A, D6.30, 06, OA, 4F, 
AF.81,10, 730 

340 PATA FD, 47. 13, 1A, D6. 30, 80, 
C9.CD, 9B, 1320 

350 DATA BE, 5 A, BB, C9, 00, 00, 00, 
00.2A, 20, 742 

360 DATA 4D.6F. 64. 6F. 20. 64, 65, 
20,70,61, 673 

370 DATA 6E,74.61,6C,6C.61,20, 
79,20,63, 920 

380 DATA 6F, 6C, 6F, 72, 20, 64, 65, 
20,74,69, 930 

390 DATA 6E,74,61,20,2A,20,24, 
OA.OD, 4D, 565 

400 DATA 6F, 64, 6F, 20,64,65,20, 
70.61.6E, 906 

410 DATA 74,61,6C,6C,61,20,3F, 
20.24.0A, 699 

420 DATA OD, 4E, 75, 6D, 65, 72.6F, 
20,64,65, 876 

430 DATA 20, 70, 6C, 75, 6D, 61, 20, 
3F.20.24. 738 

440 DATA 0A,0D,4E,75,6D.65,72, 
6F,20,64. 785 

450 DATA 65, 20, 70, 72, 69, 6D, 65, 
72,20,63, 919 

460 DATA 6F,6C,6F,72,20,3F,20, 
24, OA.OD, 630 

470 DATA 4E,75,6D.65,72.6F,20. 
64,65,20, 895 

480 DATA 73,65,67,75,6E,64.6F. 
20,63,6F, 999 

490 DATA 6C.6F. 72, 20, 3F, 20, 24, 
00,00,00, 496 

RO Para convertir el fichero en 
sólo lectura. 

RW Para convertir el fichero en 
escritura y lectura. Este es el 
tipo normal de los ficheros, 
a no ser que se especifique 
lo contrario. 

SYS Para pasar un programa del 
directorio al sistema, 
haciéndolo invisible a un 
catálogo. 

DIR Para pasar el programa al 
directorio. 
Las opciones RO y RW se 

pueden combinar con SYS y DIR. 
Si queremos proteger todos los 

programas de un disco bastaría 

con: 

SET B:**[RO] 

que nos irá comunicando el 



nombre de todos los ficheros que 
cumplan la condición. Esta 
protección también sirve desde 
Basic, ya que la orden IERA no 
los puede borrar. Si hacemos un 
catálogo de un disco que contenga 
programas protegidos aparecerá 
un asterisco al lado del nombre 
del fichero. 

Para los que sólo tengan CP/M 
2.2, tendrán que utilizar siempre 
discos con formato sistema, y 
copiar la utilidad Stat al disco 
cuyos programas desean proteger. 
Además no podrán utilizar la 




opción de disco B: (a no ser que 
posean dos unidades de disco). La 
forma de protegerlos será: 
STAT*.COM $R/0 
y para convertirlos en lectura- 
escritura: 

STAT*.CO $R/W 



Más que PIP, PIP y... 

Para copiar ficheros desde el 
CP/M Plus, todos los usuarios 
conocen la utilidad Pip, en la 
forma: 

PIP B: = A:PROG.BAS 
pero además Pip admite una serie 
de opciones, que se colocan al 
final de la línea de órdenes, entre 
corchetes y separados por 
espacios. Así, por ejemplo, si lo 
que queremos copiar son varios 
programas cuyos nombres no 
tienen nada en común, 



CP/M 



teclearíamos la siguiente línea de 
órdenes: 

PIP B:A: = *.* [C] 
y conforme se van leyendo los 
programas se nos pide 
confirmación sobre si queremos 
copiarlos o no. Si lo que 
necesitamos es que no haya 
diferencia entre las copias, es 



decir, que no se pueda deslizar 
ningún error, aunque éste sea muy 
pequeño, tendremos que utilizar la 
opción «V» de la siguiente forma: 
PIP B:A: = *.*[C V] 
que además de pedirnos 
confirmación también verifica la 
exactitud de la grabación. Otra 
opción bastante interesante es 
poder copiar ficheros que sean 
invisibles al catálogo; es decir, los 
que tienen atributo Sys, esto se 
puede realizar mediante la opción 
«R». Otras dos opciones 
interesantes son «L» y «U» que 
pasan todos los caracteres ASCII 
de un fichero a minúsculas y 
mayúsculas, respectivamente. 

Los ficheros copiados con estas 
opciones siguen conservando los 
atributos de los ficheros fuentes, 
así, si un fichero era de «RO» y 
«SYS», su copia también tendrá 
estas características. ■ 
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•i Valladolid 1987 I 

'tmiiHHHiHi«mmHHtimii 

t 

' > Define ventanas. 

tllNDON 12 CLOSE 

SCREEN 12 GRAPHICS 1000 F1IED,50 FIXED 
U1HD0U 12 PLACE 0;117 
K1ND0N 12 TITIE "FICHEROS* 
SET 12 POINTS 8 CULOS 1 EFFECTS 1 
SCREEN II GRAPHICS 840 FIXED, 200 FIIED 
STREAH «1 
UIHDOM FULL 

NINDOW T1TLE "GRAFICOS" 

' > lnializacion. 

OPTION RUN 
0PT10N DEGREES 
ON ERROR GOTO er 
DIrl a»<5>,b»(15>, 105,4), sec(l5),5ec2(15> 
bpÍ=CHR»(7) 
j=l 

l»=CHR)(237>+CHR»(251)+CHRt(239)*CHRí(230) 

' > Heno Principal. 

LADEL ienu 
60SU1 iar 

SET EFFECTS 1 POWTS 8 COLOR 1 FÜHT 1 

LOCATE 26;6:PRINT FOKT (2) ; «D JUST( 1 8) ; 'HEMU PRINCIPAL" 

LOCATE 28¡10:PRINT "1.- REPRESENTAR GRAFICO." 

LOCATE 28;I2:PR1NT "2.- INTRODUCIR DATOS. ' 

LOCATE 28¡14:PRINT '3.- SALVAS DATOS." 

LOCATE 28¡16:PRINT "4.- CARGAR DATOS." 

LOCATE 28¡18:PRINT "ESC- SALIR." 

LADEL rep 

xt=lNKEYt 

1F x»=CHW(27> THEN GOTO sal 

IF xt>CHR*(52> OR x«<CHR»<49) THEN GOTO rep 

x=VAL(»«) 

ON x GOTO representa,introduce,silva,carga 
r 

'-> Salir. 
LADEL sal 
SET COLOR 1 

LOCATE 28¡IB:PRINT EFFECTS(G5)¡"ESC- SALIR." 
FOR n=l TO 5000:NEXT 

LOCATE 2E¡20¡PR1NT \ Está totalmente seguro ? (S/N)' 
GOSUB respuesta 
IF sn-1 THEN CLS:END 
10CAIE M¡1B:PRWT "ESC- SALIR." 
LOCATE 26¡20:PRINT STRlNSi(32,32) 
GOTO rep 



Gem Bussines 

Graph 



Por Juan Antonio Illescas 



El Basic del Amstrad PC, además 
de ser muy potente, es útil 
Buena prueba de ello es este 
programa de gráficos 
profesionales. La palabra que lo 
define es justamente esa: 

profesional 



n el programa se ha 
incluido una rutina de 
estión de errores, 
mediante la cual, en la 
ventana de diálogo, aparecerá el 
tipo de error ERR y el OSERR, si 
es que lo hay, y parará el 

— Introducir datos. m— ^_ ^^■dBTéB^He^e^raVBa^ftTáf^e^ea^el 

LABEL introduce 
SET COLOR I 

IF intro=l THEN LOCATE 20;20:PfilNT "Existen datos en moría. ¿Continuo? (S/N)":G0SUÍ respuesta:lF sn=0 THEN LOCATE 20;20 
N6«(50,32):GOTO rep 



LOCATE 20¡20:PRII(T 5TRIN6í(50,32) 
s)F0ir=0:ac»="»CTiVA RETICULA. ":rell=0:ec»="COLOR. 1 
LOCATE 2B¡12:PRINT EFFECTS(E5)¡"2.- INTRODUCIR DATOS 
FOR n=l TO 5000: HEXI 
CLS 

LOCATE 32¡2:PRINT F0NT(2)¡ADJVST(14)¡"Caepos' 
LAFEL catpo 

LOCATE I4t5:1NPUT 'Muro de cupos (M>. IS): \cl 
IF cKl OR cl>l5 THEN LOCATE 38¡5:PRWT STRMG1(47,32):G0T0 catpo 
LOCATE 25¡8:PR1NT F0NT(2)¡ADJUST(14)¡"Introducci(n caipos" 
101 3000¡2675, 1100,300 FUL H1TH 8 COLOR 3 
LOCATE 31;I0:PRINT MK<2);'Caepo N." 
FOR n'l TD d 

IF n>l THEN MI 2400¡1775,2800,300:LXATE 41¡14:PRI»T STRINSi(10,32):L0CATE 26¡14:PRINT "Caipo anterior! "¡bMn-1) 
LOCATE 30¡10:PRINT H0BE(4)¡C0L0R<3)¡STRIN6«(LEN(STR«(n)) l 32) 
LOCATE 37;I0:PRINT N0DE(2)¡n 
•=n-l 

LAKL r4 K 
LOCATE 24¡U.'PRlirr STRIN6<(L£N(bi(i))*l 1 32) 
LOCATE 14;18:1NPUT "Introduica: ",M(n) 
IF LEN(b$(n))>10 OR LEN(M(n)Xl THEN «=n:G0T0 r4 
NEIT 

GOSUB tecla 
CLS 

LOCATE 31¡2:PRINT F0NT(2)¡«D]UST(14); , Registros > 
LAfiEL registro 

LOCATE 12¡5:MPtrr "Nítero de registros (Hli. 4): ",c2 
IF c2<l 0R c2>4 THEN LOCATE 38¡5:PR1NT STRIN6»(39,32):6OT0 registro 
B0I 30O0¡ 2673, 1400,300 FILL KITH B COLOR 3 
LOCATE 3!;I0:PRIKT N0DE(2)¡ "Registro N." 
LOCATE 23)8:PRlNr F0NT(2)jADJUST(14)¡ "Introducción registros" 



programa para revisar las causas 
que hayan podido ocasionar el 
error. 

A la hora de la representación 
del gráfico, pueden aparecer 
problemas si alguno de los 
datos es negativo. Aunque el 
programa esté hecho también 



para gráficos con datos negativos, es 
aconsejable no utilizarlos, pues 
puede haber errores en la escala, 
como por ejemplo que el valor de 
la línea O no sea el O, que el 
gráfico se salga de la escala, etc. 
En cuanto a los datos 
positivos el programa no 
existe y lo hará a la 
perfección. No admite que todos 



los valores sean negativos, al 
menos uno de ellos tiene que ser 
positivo. 

Cuando se representa un gráfico 
mediante barras o líneas, el 
programa dibuja una escala de 
valores en la coordenada Y que 
aparece en la pantalla. 
Esta escala está dividida en 
¡PRiNT STRi |5 partes, sean los valores 

positivos o negativos. Si 
todos los valores son positivos, 
tendrá como primera línea la O y 
como última el número 
redondeado a un múltiplo de 10, 
de tal manera que al llegar a la 
primera línea el valor sea 0. Así 
todos los valores de la escala 
serán múltiplos de 10, pero si al 
llegar a la primera línea el 
valor no es el cero, 
recalculará la escala de valores 
tantas veces como sea necesario 
para que la primera línea 
tome el valor cero y que entre 
cada valor haya un número 
constante. 

Si cualquiera de los nombres de 
los campos es mayor que la 
longitud que tiene éste en la 
pantalla, el nombre será 
abreviado. 
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FOR n=l TO cí 

acm nao-.mm iiqiiem) ¡color™ ;• 

LOCATE 40;I0:PR1HT H00E(2)¡n 

IF n>l THE» BOX 2400¡1775,3100,300:L0CATE 43;U:PKIMT STRING»(I0,32):L0CATE 26¡14:PRINT "Re gistro anterior: "[alín-D 
l-n- 1 
LABEL rS 

LOCATE 24; 18:PRtMT STR»IS*(LEN<a*{i) >*I,32) 
LOCATE I4:I8:1NPUT "Introduje): " ( a*(n> 
IF LEN<a»<n))>10 OS LEN(a»(n)Kl THE* e=n:60TO rS 
NEXT 

60SUB tecla 

LOCATE 36¡2:PRINT F0KT(2)¡»MUST(14)¡"ValorK' 
«DI 2500;2675, 1300,300 F1LL HITH 8 COVt I 
LOCATE 26¡10:PRtlT ■U'2)¡"Valor de ■ 

roe a=i ra a 

FOR n=l TO el ~ i^MMM 

IF 1)1 AHÍ n=l THEN a«=-tM:«a=e*H EISE ai=l:ia=0 

IF n>l OR »>1 THEK 101 34OO;2C75,(LH(a<<i-H»«Ltt<b»(n-ai))*4)ilOO,3O0 FILL HITH COLOR 
B01 3400;2675,(LE«(al(i)l*lEN(b»(n)H4)«IOO,300 FILL HITH 6 COLOR 3 
LOCATE 34;10:P)?IMT r»DE(2);i«(i);' en "¡M(«) 

IF n>l OR •>! TREN 601 24O0;!775,2300 1 3O0:L0CATE 40;14:PRMT STRIH6M9,32):L0C»TE 26¡14¡PRHIT "Valor anterior: •;l<n-ai,i-ia: 
LABEL rf 

IF n>l OR DI THEK LOCATE 24;18:PRIHT STR1N6«<47,32) 
LOCATE 14; 1S: INPUT "Introducá: ".Kn.i) 
in(n,i))SSS933 OR l(n,ll<-999999 THEK BOTO rE 
NEIT n,f 

GOSUB tecla ^ÍVI 
CLS 

LOCATE 30;4:PRINT F0KT(2)¡ABJlJST(14)¡"«ítiilos" 
LADEL ^tjw 
LOCATE 20:8:INPUT "Introduzca leyenda linea 1: ",111 
IF LEN(11»)>70 THEH PRIHT bpl:ltC»TE 20;8:PRINT STR1H6«(IOO,32>:GOTO il 
LADEL i2 

LOCATE 20;IO:IHPUT "Introduzca leyenda linea 2: ",12« 

IF LEN(12»>>70 THE* PRINT bp»:LXAT£ 20¡10;PRINT STRINGt(lW,32):C0T0 i2 ^^^^^^^^^^^^^^^^^ 
LABEL i3 -....¿-.' 
LOCATE 20j 12: INPUT "Introduzca rotulo coordenada <>': *,rs< 
IF LEN(r«»»70 THEK PÜ1NT bp«:L0CATE 20;12:PR1NT STRINtrt<iW,32>¡B0T0 i3 
LADEL ¡4 

LOCATE 20¡I4:INPUT "Introduzca rítulo coordenada 'y': ",ry* 
IF LEH(ry«)>22 THEK PRIHT bp«:L0CAT£ 20;14:PRI*T STRIH6«(1M,32):60T0 i4 
GOSUI tecla 
intro=l 
GOTO eenu 

1 — > Represantar gráfico. 
LABEL representa 
nl=-l«XKK)0:n2=1000000 
IF intro-0 THEK 60T0 rep 
5ET COLOR 1 

LOCATE 28;10:PRINT EFFECTS(Í5)["1.- REPRESENTAR GRAFICO." 
FOR 11=1 TO 5000:HEH ^bw 
LABEl representa2 

j=l:j?=0:d=0:gradcl=C':gradü2=0:tetal=0:total2=O:altura=ü:aItura2=0 
60SUD tu 

LOCATE 30;5:PRIHT AD JUST ( 10 ) ; ETTECT5 «0> ; ■REMJ DE REPRESENTACION" 
LOCATE 28¡B:PR1HT "Fl.- REPRESENTAR POR BARRAS." 
LOCATE 2B;10:PR1MT "FZ.- REPRESEHTAR POR LINEAS." 
LOCATE 28¡12:PRIHT "F3.- REPRESENTAR POR SECTORES." 
LOCATE 28;14:PR1NT *F4.- "¡ac« 
LOCATE 28¡16:PRIHT "F5.- RELIEN» CON "jecl 
LOCATE 2D;18:PRINT "ESC.- SALIR AL RENU PRINCIPAL." 
LABEL rep2 
i=WBf 

IF ¡=-1 THEK 60T0 rep2 
IF i =315 THEN GOTO barra 
ir i=316 THEN GOTO linea 
IF 1=317 THEK BOTO sector 
IF 1=318 THEK GOSUB act desact 
IF i =319 THEN GOSUB relleno 

IF i=27 THEK LOCATE 28¡18:PR1NT EFFECTS(65)j"ESC- SALIR AL HENO PRINCIPAL. ":FOR n=l TO 5O00:H£XT:B0T0 tenu 
GOTO rep2 

'--> Activar/Desactivar retícula. 
LABEL act desact 
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■Manca: 



E£P«*= U.52 1 
; M*CI*= 2?. 71 l 
rr llíí= ÍJ.7Í S 



... . -t-ii ==; ■! :=¿; 6*1: 



I 



r 



IF r=0 THEK ac*="DESACTIVA RETICULA. ":L0CATE 28¡14:PRIHT "F4.- ";ac»:L0CATE 24¡20:PRMT "V-Vertical. H-Horizontal. A-Albas.": GOSUB 
res: LOCA TE 24;20:PRINT 5TRINS$(S0,32):GOT0 rep2 

r=0 

ac«="»CTIVA RETICULA. " 
LOCATE 28¡14:PR1NT "F4.- •¡ac»;STRIK6*(12,32) 
RETURN 

!— Í Rellenar ton Traaa/Color 

LABEL relleno S»fc«<, 
IF rell=0 THEN rell=l:ec«="TRAHA. • EISE rell=0:ect="ax.OR. 
LOCATE 28;IÍ:PR1NT "FS.- RELLENO CON "¡fe» 
RETURN ^^^^ 
'--> Representar por barras. 
LABEL barra 

LOCATE 28¡8:PRWT EFFECTS(65)¡"F1.- REPRESENTAR POR BARRAS." 
FOR n=l TO 5000:K£XT 

cls PPÑ^^HbIb^nV" 

GOSUB «xito 
GOSUB escala 
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>_s¿ upí t«l¿ mí súit 



60SUB murro 

60SUB valores *_^^^^^^^^^h__ 
grosor=<pl-350)/c2 
FOR n=l 10 c2 

1F n)l THE» pM100»(5rosor»73)«j: j=jtl:j2=j2M04 ELSE p2=U05 
LABEL cuatro 

1F rell=l THE» tt=B:c=n*l ELSE t»*n:c=l , ¡ Z 

IF t=l ME rell=0 THE» c-2 
SOI 1200tn*j2;200,400,200 FUL U1TH tt COLOR c 
«OVE 1200tn»j2HO0¡200:PR«T •: -¡iMn) « 
IF 1=1 THE» RETURN I * 

FORrlTOd * ' — 

60SUB alt ' 
IF l(a,nM THE» altura=attura»25 ELSE altura=alturat» 
IF rell=l THE» tt=8:c=n»l ELSE tt=n:c=l 
IF altura** THE» altura=50 
BOI p2;b4,grosor,altura FILL UITH tt COLOR c 

^P 2 *f l i ficteres Pregrajas Editar Fuentes Colores Trana s Lineas ientanas BfiS:CZ 

NEIT ' 

GOSUB rótulos 



salir. 



IF reil=l AND n2(0 THE» LIME 950¡ b I,8000¡c 1 ELSE IF rell=l THE» ios=l:60Slja jjcala 

BOTO tecltí — 

'— > Representar por lineas. ____________ 

LA1EL linea 

LOCATE 2B;10:PR1»T EFFECTS(B5)¡"F2.- REPRESENTAR POR LINEA S.* ~ 
FOR n=l TO 5000:HEIT « 

m 1 



m ■ 

311 ■ 

ai - 
in 



CLS 

G0SU6 uxin 
605UB escala 
60SUB muero 
60SUB valores 
FOR n=l TO c2 

IF n>l THE» j2=j2«400 »- — 5 

PLOT I200»n«j2¡250 NARKER n«2 COLOUR n t - 

NOVE 1200»n+j2+200j 200: PRIHT "¡aíln) ' tt 

altura2=*4 

p 3=1000 

FOR e=l TO ti . _■ R 

GOSUB alt 

«ltura=altura+b4 

IF alturalO THE» altura =altura2-altura 

IF a)l THE» PLOT p3;altura2 NARKER n*2 

LIME p3;altura2,p3*pl¡altura COLOR n 

»3=p3tpl 

altura2-a¡tura 

NEIT i.n 

GOSUD rótulos 

60TO teda2 

> Representar por sectores. 
LABEl sector ^L^^^^^^ 
grad-3.£ 

LOCATE 20¡12¡PRINT £FFECTS(E5)¡'F3.- REPRESENTAR POR 

FOR n=l TO 5000:NEIT 

CLS 

IF c2>l THE» GOTO separa sector 
FOR n=l TO el 

IF l(n,l»o THEN total=total*I(n,l) 
NEIT n 

FOR n=l TO d 
•=1 

IF Kn,iK=0 THEN 60T0 sg 
GOSUO grados 

IF n>=B THEN tt=n*l ELSE tt=n 

PIE 3590¡2490,2000,graio2,grado2*gradol FILL HITH tt 

GOSUB estadística 

GOSUB grados2 

LABEL sg 

NEIT n 

t=l 

GOSUO rótulos 
t=0 
j2=0 

FOR n=l TO d 

IF l(r,l)(=0 THE» 60TD sg2 
IF n>=8 THE» tt=n*l ELSE tt=n 
DOX 100¡4500-j2,400 1 200 FILL HITH tt 
NOVE 50O;4550-j2:PRINT ": "¡b«(n) 
j2=j2»250 
LABEL sg2 
NEIT 

ct=(40-(LE»(a»(l))/2)HM 
NOVE ct;2S0:PRINT at(l) 
GOTO teda2 
LABEL separa sector 
total=0 
FOR n=l TO d 
FOR •=! TO c2 

IF I(n,.)>0 THE» total2=totaI2'l(n,i) 
»EIT • 

sec(n)=total2 
total =totaI*tota!2 

total2=t ] 
NEIT n 

FOR n=l TO d 
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VARIABLES 



aSO Nombres de registros 

b$0 Nombres de campos 

l() Valores 

11$ Leyenda de la línea 1 

12$ Leyenda de la línea 2 

rx$ Rótulo de la coorde- 
nada 'x' 
ry$ Rótulo de la coordena- 
da Y 

c Color 

altura 2. .Altura anterior 

b4 Posición de la barra en 

la línea O 

bl Posición de la línea O 

bO N. de líneas negativas 

tt Trama 

j2,nn Incremento 

j Incremento posición 

barra 

p2 Posición de la barra 

ct Centrado del texto 

grosor. . . Grosor de la barra 
altura . . . Altura de la barra o lí- 
nea 

ec$ Texto de trama/color 

x$ Respuestas 

sn Respuesta (S/N) 

el N.° de campos 

c2 N.° de registros 

rell Relleno por trama/ co- 
lor 

intro Terminación de intro- 
ducir datos 

i Respuesta en el menú 

principal 

ni Máximo valor de los 

datos 

n2 Mínimo valor de los 

datos 

n3 N.° máximo de escala 

m4 N. ° mínimo de escala 

mi Media de valores 

m2 Escala de valores 

pl N.° de separaciones en 

la coordenada ~' 
ac$ Rótulo de activa/ de- 
sactiva. 

total Suma de todos los va- 
lores. 

sec() Suma por campos 

grado 1 .. incremento de grado 
Inicio del sector 
Suma de valores por 



grado 2 
Total 2 
mmpos 

sec20 Grados de sectores 

grad Coeficiente sector 

dos Segunda vez que dibu- 
ja línea 

r Tipo de retícula 

1$ Cadena de seguridad 

bp$ Pitido. 
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total2=sec(n> 

gradol=((tolaI2ilOO)/lotaII«3.G 
PIE 3590¡ 249C, 2C0O, gi ado2 , gr ado2»gr ado 1 HIDTH 4 
60SUD estadística 
sec2(i))=gradol*jrado2 
grido2=grado2+gradol 
NEIT n 

gradol=O:grado2=0 
1E t-l THEN RETURN 
FOR 11=1 TO el 

grad=(5ec2<n)-5ec2(n-l))/100 
total=sec(n) 
FOR 1=1 TO c2 
IF Hn.eK-O THEN 60TO in 
60SUB grados 

ir rell-l THEK It4:m*l EL DE tt=isc=2 

PIE 3590¡24S0 I 2000 1 grado2,grado2tgradol WIDTH 1 F1LL W1TH tt COLOUR c 
GOSUD grados2 
LADEL in 
NEIT i,n 

grado2=0:gradol=0:totaI2=0 
1=1 

BOSUD separasector 
eOStfl) rótulos 
j2=0 

FOR n=l TO c2 
IF n>l THEH j2=j2MOO 
6DSUB cuadro 
NEIT 

GOTO teda2 

' — > Salva datos en el dixo. 
LABEl salva 

ir intro=0 THEK SOTO rep 
SET COLOR 1 

LOCATE 28¡14:PRIHT EFFECT5«5)¡"3.- SN.VW DATOS, 
FOR n=l TO SOOOrNEIT 
LABEL salva2 
CLS 

LOCATE 20¡ 12: IUPUT "Introduzca nolore de fichero: 
IF LEH(ft)>8 THEH SOTO tilva2 
IF LEN(f»)=0 THEN GOTI tenu 

IF IltSTR(f«.-.->=t> THEH f*»f»f.6RF - ELSE f »=LEFTI(f t, INSTRÍf*, ' . M l+'SRF" 
IF FlHD»(f»)<>" THEH LOCATE 15¡1E:PR1HT "Hay un ficlwr. I ti el listo noebre 
lva2 
sn=0 



Organización del programa 

menú-sal Menú principal 

sal-introduce Opción: salir 

introduce-representa Opción: introducir datos 

representa-act — desact Menú de representación 

act — desact-salva Opciones del menú de representac 

salva-carga Opción: salvar datos 

carga-er Opción: cargar datos 

er-tecla2 Gestor de errores 

tecla2-[ Final ] Subrutinas 



fletera ftaaraas Bsar (untes Calore Irasas lineas ventanas MS1Q 
Hl , - fute «a tecla ta-; 




¿Contiuno? (S/H)":S0SÜ0 res uesta:IF sn=0 THEH GOTO sa 



OPEH 16 OUTPUT f» 
PRIHT <6,lt 
PRIHT I6,d 
PRINT »6,c2 
FOR n*l TO d 
PRIHT »6,e«(n) 
NEIT 

FOR n=l TO c2 
PRIHT K,a«(n) 
NEIT 

PRIHT 16, rx* 
PRIHT 16, ry» 
PRIHT 16,11» 

PRIHT «£,12* >■■■-.:- 
FOR n=l TO d 
FOR l-l TO c2 

IF INSTRISTMCHn.iD.YlOO THEN PRIHT •E,LETTi(STR«(l(n 1 i)),INSTRISm(I(n,i) 
,'M,2) ELSE PRIHT I6,l(n,n) 
NEIT i,n 

CLOSE 

LOCATE 30¡18:PRIHT "Proceso concluido" 
GOSUD tecla 
GOTO lenu 
LA BEL carga 
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Instrucciones de manejo 

Al arrancar el programa nos 
aparece un menú principal con 5 
opciones: 

Opción 1: Nos permite 
visualizar los datos fijos. Sale un 
menú correspondiente. (Está 
descrito más adelante). 

Opción 2: Introducimos los 
datos necesarios para la ejecución 
del gráfico. Si la variable Intro es 
igual a 1 y, por tanto, existen 
datos de un gráfico en memoria, 
pedirá confirmación para 
continuar o no continuar. 
En primer lugar hay que 
distinguir entre Campo y Registro. 
Por ejemplo, cuando en los datos 
de un gráfico nos presentan: 



Francia Italia Grecia 



Aceite 
Jabón 
Queso 



50 
10 
49 



34 
78 
61 



15 
29 
109 



")-!)*". "*HIDt(STR$(l(r,a)),IHSTRíSTRI(lín l i)> 



El Aceite, 

Jabón y Queso serían 
los Campos. 
Francia, Italia y Grecia serían 
los Registros. 

Hay que destacar que el Campo 
y el Registro son intercambiables 
entre sí, pero al final el 

■— > Carga datos del disco. resultado es siempre el 

IF FINMCi.6RF")=" THEH LOCATE 30;20:PRIHT "Ho existe níngon fichero i.6RF":F0R n=l TO 15000:NEIT:LOCATE 30¡2C:PR1NT STR1NG»(50,32 m j sm0 Se pueden 

introducir hasta 15 Campos (por 
ejemplo: Enero, Febrero, Marzo, 
Abril, Mayo, Junio, Julio, etc.) y 
hasta 4 Registros (ejemplo: 
Petróleo, Gas, Carbón y 
Electricidad). 

Para explicarlo de una forma 
más sencilla, lo primero que se 
debe hacer es cargar el programa 
y elegir la opción 3 (Cargar datos) 
e introducir un nombre cualquiera 
de fichero que sea *.GRF, y que 
hayamos creado previamente. 
Después elegir la opción 1 



1 



):GOT0 rep 

LOCATE 28;1G:PRINT EFFECTS(E5)¡"4.- CARGAR DATOS 
FOR n=l TO 5000: HEIT 
SET CXOR 1 
CLS 
CLS 12 

UIHD0U 12 OPEH 
FILES I2,"».6RF" 
LABEL carga2 
REPEAT 

CLS 

LOCATE 20¡14:IHPU! 'Noubre del fichero: ",f« 
IF LEH(f«)=0 THEN CLS:HIHD0H II 0PEN:60T0 lenu 
ir INSTR(f«,VK>0 THEH fÍ=LEFTi< fi, 1HSTR( fi," 
UNTIL FIND*(f«)<>"' 
0PEN 16 INPDT ft 
INPUT 16, M 

IF MOH THEH CLOSEiLOCATE 20¡16:PR1HT "El fichero es de tipo incorrecto 
INPUT 16, c¡ 
INPUT 16, c2 



fatfwrs 7n»W. FtfcWi ¿aires TriWi Lltff *gB¡*¡ ml ® 



"))*"GRF" ELSE f«=m'.SRF' 



■:F0R n=l T0 15D00:HEIT:60TD carga2 
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FOR rpl TO el 
INPUT lE.bífn) 
HEXT 

FOR nM TO c2 
TNPUT 16, a» (n) 
HBt 

INPUT lE.rrt 
IltPUT 16,'yl 
INPL'T 16,11» 
IltPUT 16,121 
FOR n=I TO el 
rOR «=1 TO c2 
IltPUT 16,1 (n,i) 
SEXT n,n 
CIOSE 

LOCATE 30¡IB:PRINT •Proceso concluido.' 
intro-l 

relHIiacts'OESACTIv-A RETIO".». '■K«=TOLOR.':r=0 
60SUB tecla 

as 

UINDCU II OPEN 
GOTO nerni 

'— > Rutina de errores. 
LABEL er 
CLS 12 

HTNDPH 12 OPEN 

S TREMI 12 ^ ^ 
WINDOH TITLE "ERRORES" 

LOCATE 6,'2:PRINT "Se ha producido un error durante la ejecución, revise las causas. 
LOCATE ?3;5-PPINT 'Pulse una tecla para salir." 
REPEAT:ÜHTIL INKETO-1 
CLOSE 
STREAfl II 

^^^^^^ 

CLS 12 



? "Tipo de error ERR: "¡ERR 

ir DSERR» THE» ' "Tipo de error OSERP: 



'¡OSERR 



END 



-> Subrutinas. 



(Representar gráfico) y Fl 
(Representar por barras). Pues 
bien, los nombres que hay debajo 
de la coordenada 'X' son los 
campos y las columnas son los 
registros. 

pasaremos a explicar la opción 2. 
Cuando pulsemos nos pedirá el 
número de campos. Una vez 
introducidos los datos, se teclean 
los nombres de tipo alfanumérico, 
con un máximo de 10 caracteres. 
Nos irá indicando en qué número 
de campos nos encontramos y 
también nos mostrará, dentro de 
un rectángulo, el campo anterior 
para podernos guiar mejor. 

Después de los campos, 
pasaremos a la introducción de 
registros, 
mediante un 
proceso idéntico 

al anterior. 

A continuación vendrá la tarea 
más dura: la introducción de los 
valores. Dentro de un rectángulo 
aparecerán los datos que tenemos 
que insertar (por ejemplo: «Valor 
de Francia en Queso»). Cuando 
hayamos acabado de incluir todos 
los valores pasaremos a introducir 
los rótulos de la coordenada 'X', 
de la coordenada 'Y', la leyenda 
de la línea 1 y la leyenda de la 
línea 2. Las leyendas de las líneas 
1 y 2 son estos rótulos que suelen 
aparecer encabezando el gráfico. 
Después de haber terminado de 
introducir todos los datos, la 
variable Intro tomará el valor 1. 

Opción 3: Graba en el disco los 
datos del gráfico actual, además 
de la variable 1$ que sirve 



cargar, si el fichero 



'--> Pulsación tecla (En ventana.) 
LADEL tecU2 

HINDOU TITLE "Pulse una tecla para salir." 
REPfcAT:UNTIL INKEYO-1 
UINDDU TITLE "GRAFICOS" 
GOTO representa2 
'-> Respuesta (S/N). 
LABEL respuesta 
íl=UPPER«<INKET«) 
1F x*="S" THEN srFhRETURN 
IF x»=*N" THEN sn=0:RETURN 
GOTO respuesta 
'—> Marco de pantalla. 
LADEL lar 
CLS 

601 Ij 1,8180,4999 FUL HITH 4 COLOR 1 
D0I 925;350,G173,4150 FILL HITH COLOR 1 

line iooo¡4oo,70<!Oj40o,7ooo¡44oo,iooo¡44oo 1 iooo¡4oo HioTH 2 color i para saber, a la hora de 

LINE 9?5¡ 350, 7075j 350, 7075; 4500, 925; 4500 , 925; 350 H1ÍTH 4 COLOR 1 
RETURN 

'--> Pulsación tecla (En pantalla.) 
LABEL >Kla 

LOCATE 26¡20:PRIKT "Pulse una tecla para continuar.* 
REPEAT:U1fTIL INKEYO-1 
RETURH 
LABEL res 
xMJPPERMNKEY») 
IF x«=-V" THEN r=l:RETURN 
IF x»-"H' THEN r=2:RETURN 
IF x«="A' THEN r=3:RETURN 
G0TD res 

> Iipriie estadística 
LABEL estadística 

NOVE 5600¡4400:PR1NT "Estadística:" 
HOVE GOO0¡4250-nt25O:PRMT M(n)¡"= " 
NOVE 7000;4250-nt250:PRIHT USIN6 ■|tt.M';gridol/3.{; 
PRINT " I' 
RETURN 

'— > Conversiín a grados. 
LABEL grados 

gridol=(tl(n,*)<100)/total)<grad 
RETURN 

> Suia de grados. 
LABEL grados2 
gradc2 -grado2*gradol 
RETURK 

'--) Altura de la línea o barra. 
LABEL alt 

altura^OU*M(l(i,n>/il)*250) 

RETO 



pertenece al programa Gráficos. 
Si la variable Intro tiene el valor 
0, la opción no se ejecutará. En 
caso contrario, se borrará la 
pantalla y nos pedirá el nombre 
del fichero (no es necesario poner 
el tipo del fichero). En caso de 
haber uno con el mismo nombre nos 
los indicará preguntando si continúa 
o no. Una vez realizada la grabación 
regresará al menú principal. 

Opción 4: Carga en memoria 
los datos de un relleno con trama. 
Si no encuentra en el disco ningún 
fichero de tipo *.GRF no se 
ejecutará la opción, en caso 
contrario, se borrará la pantalla y 
se abrirá la ventana 2, conteniendo 
el directorio de todos los ficheros 
*.GRF. En la ventana 1 será en la 
que se introduzca el nombre del 
fichero que se quiere cargar (no es 
necesario introducir el tipo del 
fichero, pero aunque se ponga, 
siempre el fichero será del tipo 
*.GRF). Si no queremos cargar 
ninguno se pulsa Intro. En caso 
contrario grabará los datos en 
memoria del fichero elegido, si es 
que existe. Entonces la variable 
Intro tomará el valor 1. Al pulsar 
esta opción y cargar el primer 
registro del fichero en memoria, 
comprobará si es de tipo correcto, 
es decir, comprobará si el primer 
registro del fichero es igual a la 
variable 1$. Si la comprobación es 
correcta el fichero se terminará de 
grabar. En caso contrario, 
mostrará en pantalla que el 
fichero es de tipo incorrecto. 

Opción 5: Se optiene pulsando 
ESC, de manera que salimos al 
Basic2 o Gem Basic. Pedirá 
confirmación. 
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'-) Rótulos de pantalla. 
IA8EI rótulos 
ct=INT(40-LEN(ll*)/2> 
LOCATE ct;l:PRINT 1U 
ct=NT(40-LEN(12$)/2) 
LOCATE ct¡2:PRINT 12* 
IT t=l THE» RETURN 
ct=1750-((LEN(ryl)t|00)/2) 
NOVE 100;ct:PRINT ANCLE (90)¡ry* 
ct='40-(LEN(rx«)/21U100 
NOVE ct¡60C:PRINT ri« 
RETURN 

' — V Valor láxino y líniio 
LABEl lavino 
FOR P=l TO ti 
FOR 1=1 TO c2 
n I~nAX(l (rij n) f ni ) 
n2=h , IH(l(p 1 i) 1 n2) 
NEXT »,n 
PETURN 

'--> Dibuja Escala de valores. 
LABEL escala 

LINE 1000¡4500, IODO; 1000,0000; 1000 
FOR n=4500 TO 1000 STEP -250 
LINE 950;n,1050¡n 
NEXT 

IT dos=l THEN dos=0:RETllRN 
pl=lNT(7000/d) 
FPR n=1000 TO 8000 STEP pl 
LINE n¡9S0,n¡ 1050 
NEJT 

SET EFFECTS(O) 
nn=INT(I050*pl/2) 
rOP n=l TO el 

IT LEN(b$(n))tlOO>pl THEN bííní-LEFTSÍblín),!)*". 
ct=nn-(LEN(b$(n))tl00)/2 
NOVE ct;!50:PRINT bl(n) 
nn=nn*pl 
NEXT 

SET EFFECTSíl ) 

ON r BCSUB retícula2,reticula,reticula 
RETURN 

' — > Dibuja retícula. 
LABEL retícula 
rOR n=1000 TO 4500 STEP 250 
LINE 1000;n,BOOO;n 
NEXT 

ir r=2 THEN RETURN 
LABEL reticula2 
TUR n=lO00»pl TO 8000 STEP pl 
LINE n.¡1000,n;4500 
NEXT 
RETURN 

1— \ Deteriinacion de 'filas y valores de cada una 
LABEL nuiero 

n3=nl*( i0-(VAL(R16HTI(STR*(nI >, 1 » ) > 
ir n2<0 THEN 60SUB calcula ELSE b0=0:b4=1000 
RETURN 

LABEL valores 
il=R0UNDfn3/<i4-b0>) 

tr (ll<=14 ANO n2>=0 THEN n3= I4:«í =1 ! GOTO y 

IF RI8HTS(STRI(ilS,l>(>"0" THEN •l=il*(I0-VAL(RI6HT»(STR»( 1 l), D)):n3'n3tROUND((ll-R0UND(n3/(I4-li0)))f(I4-li0»:n3=o3-VAL(R16HT«(STR» se utilizarán todas las 
i«3),I)> 
LABEL y 

IF n2>=-100 AND n2<0 
•2=n3-«l 

rOR n=4200 TO 750 STEP -250 
i2=«2-§] 
NEXT 
«2=«2«1 

IT n2(0 AND «2>n4 THEN •i-- 1 ltROUHD(n4/a2>:n3=n3«OUND(n4/i2>:60TD y 
IF «2O0 AND r¡2>=0 THEN n3=n3-i2: GOTO y 



Opción 1: 
gráfico 



Representar 



I nl<=700 AND nl>10 THEN r,3=n3*10 



Al pulsar esta opción, y si la 
variable Intro es igual a 1, se 
pasará a un nuevo menú de 
opciones que utiliza las teclas de 
función. Cuando hayamos 
acabado con cualquiera de estas 
funciones, basta con pulsar una 
tecla para volver al menú. 

Fl: Nos representa el gráfico 
mediante barras. 

F2: Nos permite ver el gráfico 



mediante líneas de diferentes 
colores, utilizando símbolos al 
final de cada campo. 
F3: Nos permite ver el gráfico 
en sectores o en tarta. 
Sólo se representarán los 



: SE.if. 



F4: Nos permite activar o 
desactivar la retícula de diferentes 
formas. Al pulsarla por primera 
vez, ésta se activa y aparece la 
clase de retícula, que puede ser 
vertical, horizontal o ambas. Para 
desactivar se pulsa de nuevo. Si 
está activada y queremos variar el 
tipo, se pulsa dos veces F4. 

F5: Nos permite variar el tipo 
de relleno para las barras y los 
sectores. Tenemos dos opciones: 
trama o color. Por omisión, el 
relleno es por trama, pero para 
cambiar a color se pulsa V5 y 
para volver a trama 
se vuelve a pulsar F5. 

Si el relleno es con trama 



NOVE 200¡4450:PRINT US1NS "MHIt/jnS 
•2=n3-il 

rOR n=4200 T0 750 STEP -250 
NOVE 2M;n-PRtNT USINA 'MM»t,"¡í2 
l2= t 2-il 

NEXT 
RETURN 

'--> Dibuja linea "0" y calcula tilas. 

Ir n4»-I=n3 THEN bO=7:60TO con ELSE n4=n2-(10-(V»L(R16HT*(STR«(n2),l)))) registros. PerO SI 

n*=n«-i solamente hay un 

bo=RouND(n4fis/(n3*n4)> registro, la tarta 

se dividirá en campos. En 
cualquiera de los casos, nos 
mostrará una estadística en que se 



datos positivos. 
Pueden surgir dos tipos de 
representación. Si hay más de un 
registro, la tarta se dividirá 
proporcionalmente 

en campos y éstos en 



ir 60=14 THEN b0=13 

IF b0=0 AND nl>0 THEN b0=l 

n4=n4f-l 

ir n4<-100 AND n3>1000 THEN bCfcbO+f 
LABEL con 



Ol=b0i250*1000 
b+%1 

LINE 950¡bl,8000;bl 
RETURN 



muestra el porcentaje de cada 
campo con respecto a la suma de 
todos ellos. 



tramas menos la 8. Si es 
con color, se utiliza la trama 8, 
pero con diferentes colores. 

ESC: Regresamos al menú 
principal. 

Hasta aquí lo que es el 
programa. En cuanto a las 
modificaciones, se podría poner la 
opción de representar por barras 
apiladas. En el caso de haber 15 
campos y 4 registros (que es el 
máximo de cada uno) se 
representarían un total de 60 
barras, con lo que cada barra 
sería muy fina y es aconsejable 
utilizar el relleno con color, ya 
que el de trama no se notaría. Si 
hay más de un campo y se utiliza 
la representación por sectores, los 
nombres de los campos no 
aparecerían al lado de su sector 
correspondiente. 
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Shadow 
Skimmer 



El ataque de la Sombra Deslizante 

Si hay algo realmente destacable en este juego, 
Shadow Skimmer, es la acertada mezcla entre la típica acción 
basada en el fuego a discreción y la búsqueda de objetos. 
Decimos esto, porque mientras vamos eliminando las 
naves enemigas, deberemos ir buscando la manera más 

rápida para destruir determinados objetos, 
imprescindibles para la misión. Interesante, ¿no es cierto? 



Todo marchaba como de 
costumbre en el viaje de 
reconocimiento. Era tan 
rutinario que, también 
como casi siempre, el 
aburrimiento reinaba en la 
Shadow Skimmer. Este caza de 
combate espacial había sido 
diseñado según los últimos 
avanzes tecnológicos y su capitán, 
así como el resto de la 
tripulación, ardían en deseos de 
comprobar su poder de ataque. 
Sin embargo, parecía que en esta 
ocasión tampoco tendrían 
posibilidad de estrenar su 
flamante nave. Debido a este 
pensamiento, la tripulación se 
hallaba totalmente relajada y 
leyendo o jugando a las cartas. 
De repente, una exclamación, 
mezcla de sorpresa y temor, se 
oyó fuerte por el 
intercomunicador interior. El 
sopor de los hombres de la 
Shadow desapareció de inmediato, 
puesto que el capitán, frío y 
calculador, no era amigo de 
salidas fuera de tono, lo que 
había causado la inusual reacción 
del capitán, muy justificada 
ciertamente, no era otra cosa que 
un descomunal navio que se 



aproximaba al sistema solar. Su 
tamaño era aproximadamente el 
de un planetoide, o satélite, y por 
las extrañas inscripciones que 
había sobre su superficie, estaba 
claro que no pertenecía a la raza 
humana. La Shadow Skimmer se 
acercó tímidamente a este colosal 
navio, con la intención de 
establecer comunicación. Bajo una 
gran tensión, el capitán comenzó 
a dirigir por radio mensajes a los 
lejanos visitantes. Intentó 
transmitirles los deseos de paz de 
los humanos, ya expandidos por 
casi toda la galaxia. Lo único que 
recibieron a cambio de este 
pacífico mensaje fue una 
andanada de un cañón láser, 
capaz de destruir una nave varias 
veces mayor que el Shadow 
Skimmer. Rojo de ira, pero sin 
perder un ápice la compostura, el 
capitán ordenó al encargado de 
transmisiones que pidiera 
refuerzos inmediatamente, y 
ordenó a sus hombres, ya situados 
en puestos, disponerse para el 
ataque. En la cabeza de aquellos 
hombres estaba la terrible certeza 
de que se iban a enfrentar al más 
poderoso enemigo de su vida, tal 
vez incluso fuera la última vez 



que entraran en combate. Aunque 
el capitán tenía los mismos 
presentimientos, no dejó que éstos 
inundaran su mente impidiéndole 
pensar. Casi inmediatamente de 
haber dado la orden de listos para 
el combate, se había puesto a 
elaborar la estrategia más 
adecuada para la misión. Después 
de calcular las posibilidades de 
éxito de cada una de las opciones, 
todo esto a la velocidad que 
requería la situación, se decidió 
por una que parecía la más 
acertada: intentaría volar los 
sistemas de propulsión de la nave. 
Esto daría a los refuerzos la 
oportunidad de llegar a tiempo, y 
tal vez, en el mejor de los casos, 
hacer saltar por los aires la nave 
invasora. Lo primero que hizo 
para comenzar su plan, fue 
realizar un análisis espectral de la 
construcción del planetoide, con 
la finalidad de encontrar la 
posición exacta de los sistemas de 
propulsión del gigante. Cuando 
esto se hubo conseguido, dio la 
orden de eliminar, con los 
cañones láser, una de las puertas 
de salida y entrada de los cazas de 
defensa de éste. Cuando se disipó 
el humo, y pudo ver que la 
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ZONA 1 



Empezamos a jugar 
en la pantalla 2-1 y, 
desde allí deberemos 
llegar a «tiro limpio» 
hasta la pantalla 

2- 7. Por la puerta 
que allí se encuentra 
accedemos a las bo- 
degas (parte 1) de la 
nave nodriza y des- 
truimos el generador 
que hay en la panta- 
lla 2-3. Salimos de 
las bodegas al inte- 
rior de la zona 1, y 
nos dirigimos a la 
pantalla 2-10. Sali- 
mos por la puerta allí 
situada y nos halla- 
mos en las bodegas 
(parte 2) del navio. 
Nos metemos por la 
puerta de la pantalla 

3- 1 y aparecemos en 
la zona 2. 
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entrada había quedado libre, el 
capitán dio potencia máxima a los 
motores gravitacionales y se lanzó 
a toda velocidad para penetrar en 
el interior de la nave enemiga, con 
la intención de llegar hasta donde 
estaban los propulsores. 

Este lugar no era otro que las 
bodegas, la zona más interna de 
la nave, y llegar allí no iba a ser 
muy fácil. Menos todavía lo sería 
conseguir destruir el objetivo, 
puesto que los sistemas láser de 
defensa, además de los extraños 
androides que patrullaban los 
corredores, no parecían acogerles 
de muy buena forma. Al menos, a 
esa conclusión se podía llegar 
después de ver en qué forma 
disparaban. Ante esta situación 
tan poco cómoda, los hombres de 
la Shadow Skimmer tomaron la 
única actitud posible: ajustar al 
máximo de potencia sus cañones 
iónicos y, haciendo gala de una 
puntería notable, fueron 
arrasando todo lo que vieron a su 
paso. Mientras tanto, el operador 
del ordenador de a bordo iba 
comunicando al capitán la 
dirección a seguir para encontrar 
los motores del navio enemigo. 
Tras recorrer prácticamente toda 
la zona I de éste, en la cual se 
hallaban las tuberas de escape de 
los motores, encontraron la 
escotilla de acceso a la bodega 
donde se encontraba uno de los 
generadores de propulsión; la 
atravesaron y convirtieron en 
añicos el primero de los tres que 
tendrían que destruir. Volvieron 
de nuevo a la superficie de la 
zona I, y por otra escotilla 
pasaron a la zona II. Ésta, al 
igual que la anterior, o más si 
cabe, tuvieron que cruzarla de 
punta a punta, para encontrar la 
escotilla de acceso a la bodega en 
donde estaba el segundo 
generador. Cuando estuvieron 
situados frente a él, hicieron 
fuego todos los cañones de la 
Shadow y destrozaron, entre 
exclamaciones de júbilo por parte 
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ZONA 2 

Cuando salimos a la zona 2 lo hacemos por la pantalla 1-4, y deberemos bus- 
car la puerta que está situada en la 5-2. Salimos a los subterráneos, en este 
caso a la parte 3, y destruimos el generador que hay en la pantalla 1-3, busca- 
mos después en la zona 2 la puerta situada en la pantalla 5-1 y entramos de 
nuevo al subterráneo, exactamente por la puerta situada en 2-1, para volver 
a salir por la puerta que hoy cu 3-1 y aparecer en lu zona 3. 
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de sus artilleros, la segunda etapa 
de su objetivo. Volvieron a los 
corredores de la zona y, cuando 
encontraron otra escotilla, se 
llevaron una sorpresa al 
comprobar que les llevaba de 
nuevo al subterráneo en donde 
habían estado momentos antes, 
aunque el sitio era diferente. 
Salieron por otra escotilla que allí 
vieron y pasaron a la zona III. Ya 
quedaba menos para terminar la 
misión. Esto les hacía sentirse 
doblemente esperanzados, aunque 
la Shadow ya estaba bastante 
maltrecha debido a los impactos 
recibidos. Sin la menor dilación, 
fueron a buscar la escotilla de 
acceso al subterráneo donde 
estaba el último generador a 
destruir. Como en los anteriores 
casos, se encontraba situada en el 



otro extremo de la zona. Cuando 
llegaron allí, penetraron hasta 
donde estaba la última parte de su 
objetivo, ajustaron al máximo 
toda la potencia de sus láser y... 
¡¡BOOM!!, el generador fue 
destruido. La alarma del colosal 
navio comenzó a funcionar de 
una manera estridente, y el 
capitán de la Shadow decidió que 
lo mejor sería salir de allí cuanto 
antes. Lo malo fue que tendrían 
que encontrar otro portón de 
salida de naves enemigas, dentro 
de la zona III, y utilizarlo ellos. 
Hasta que consiguieron esto 
sufrieron una demora suficiente 
como para observar como crecía 
el pánico entre los alienígenas. 
Algo gordo iba a pasar. Menos 
mal que encontraron a tiempo un 
portón de salida; lo volaron y, 
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una vez fuera, a considerable 
distancia, presenciaron un 
cataclismo de considerables 
consecuencias. La explosión del 
planetoide enemigo. 

Una vez dicho todo lo referente 
al camino a recorrer para 
terminar el Shadow Skimmer, nos 
gustaría contaros algunas cosas 
que habrá que tener en cuenta 
durante el desarrollo del juego: la 
primera de éstas es la necesidad 
que tendremos de cambiar la 
posición de nuestra nave, cuando 
vayamos a pasar por alguno de 
los pasadizos que, marcados con 
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una especie de X, están situados 
por las zonas de la nave. Para 
poder lograr esto deberemos 
pulsar ENTER, o intro, y 
veremos cómo nuestra nave gira 
sobre sí misma y, donde antes 
mostraba su cabina de mando, en 
negro, aparece ahora su parte 
inferior señalada con algo 
parecido a una X también. Sólo 
en esta posición podremos pasar 
por el pasadizo. Las escotillas o 
puertas de acceso a las bodegas y 
subterráneos de la nave, se 
pueden diferenciar por las tres 
barras que tienen sobre su 
superficie. Para poder entrar a 
través de ellas deberemos 
ponernos encima y pulsar fuego. 
A continuación nos encontraremos 
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ZONA 3 



En esta zona empezamos en 
la pantalla 1-5, y deberemos 
dirigirnos a la pantalla 6-1, 
entramos por la puerta que 
encontraremos y accedere- 
mos al subterráneo (zona 4), 
destruimos el generador si- 
tuado en la pantalla 1-1 y 
volvemos a la zona 3. Será el 
momento de llegarnos a la 
puerta situada en 4-1 y salir 
corriendo, puesto que nuestra 
misión habrá terminado. 



en las bodegas. Los generadores 
que por si no os habéis dado 
cuenta diremos que están todos en 
los subterráneos, tienen una gran 
X, otra vez este símbolo, sobre su 
cuadrada superficie. Para 
destruirlos sólo deberemos 
dispararles, eso sí, teniendo en 
cuenta nuestra nave, deberá estar 
mostrando su cabina de mando. 
Cuando muestra su parte inferior, 
la nave no dispara. 

Esto es lo más destacable del 
desarrollo de un juego que en 
realidad no es otra cosa que un 
laberinto, en donde apretar el 
gatillo va a ser una constante. 
Gráficamente está muy bien 
desarrollado, siendo el colorido 
utilizado rico y da vistosidad al 
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juego. El movimiento es 
adecuado, y el efecto de rebote 
sorprende por su consecución. Los 
efectos sonoros son los que se 
podría esperar, y la música del 
juego es realmente buena. 
Esperamos que todo lo dicho 



cumpla perfectamente con la 
misión que le hemos destinado, la 
de seros útil de verdad, y que 
disfrutéis con Shadow Skimmcr, 
juego de The Edge, distribuido 
por Erbe, y que a nosotros nos 
ha parecido muy entretenido. M 
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Para poder cargar estos nuevos 
gráficos hay que utilizar el 
Cargador Universal y copiar el 
listado I mediante la opción I . Al 
terminar se debe salvar a cinta 
con la opción «Salvar binario» 
con el nombre Bargraf. 

A continuación copiar tos 
cargadores de la primera o 
segunda parte, según sea la que se 
quiere jugar. 

Ejecutar estos cargadores con la 
cinta original del juego. Cuando 
se haya acabado la carga se oirá 
un beep, habrá que colocar la 
cinta que contenía el fichero 




Barbarían 
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lo> giátuo uer 



orno poi eiemplo el monstruo 
.•rde que se lleva al que pierde o 
a abezas de las serpientes, y 
ilguno más que deberéis ver sobre 
idi al Mnal del juego. 



Bargraf, salvado anteriormente, y 
pulsar una tecla. Una vez 
cargados los nuevos gráficos 
comenzará el juego. 
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135 F1FFAÉOC0C0CFOF7FFAEOCOC, 66E 



136 0CS9F7FFAEOC0C0C0CF7FFAE,SO0 

137 OCOCOCOCSOFFAEOCOCOCOCOC, 276 

138 FFAEOCOCOCOCOCFFAEOCOCOC , 3BA 

139 OC0CFFAEOCOCOCOCOCOC0C0C.225 

140 OC0COC0COC0COC0CS9F3A6OC25E 

141 OCOC0CF3FFFF0C0COCS9F7FF,.S88 

142 FFAE0C0C59F7DSAEFF0C0CS9,608 

143 48C0FFSOAEOCOCOCC0FFAE0CSAF 

144 OC0CACC0FDAE0COCFCFCD4F0,71O 

145 FF0C0CFCFCFCF0F70C0CAC58,71B 

146 FCF9FBAEOC0COCF4F9FFAE0C , 768 

147 OC0C58F8F7AEOC090372F8F7,S86 

148 AEOC0909S2F8F7AEOCOCOC58 ,437 

149 FOF7AEOCOCOCF8F1FFOCOC0C, 5C5 

150 S8F0FlFFAEOC0CS8A4F7FFAE,79E 

151 0COCOCS9F7FFAE0C0COCS9F7,49S 

152 FFAE0COC0C0CF7FFAE0COCOC4A5 

153 0CS0FFAEOCOCOCOC0CFFAE0C4OB 

154 3COC0COCFFAE0COC0C0COC0C , 225 

155 0C0CO00C0C0COCOCOCOCOCOCO90 

156 0C0C0COC0C0C0COCOCOCOC0CO90 

157 59F3F30COC0C0CF3FFFFAE0C61A 

158 OCOCF7FFFFFFOCOCS9F7FFFF,772 

159 S00COCS95QFFFFAEAEOCOC5C , 4F9 

160 F9FFFFOC0C0CE8D4F7F70C0C , EDO 

161 FCAC04F9FBAEOCFCFCFCF9FF , A 1 6 

162 AE0CAC5CFCF8F7AE0C0C58F4 . 6BF 

163 F6F7AEOCOCOCF8F8F7AEOC0C 

164 0CF8F0F7AE0C0CS8F0F1FF0C, 

165 OCOC58F0F 1 FFAEOCOC0C0CF7 , 

166 FFAE0C0C0C59F7FFAEOC0C0C, 

167 59F7FFAEOCOC0COCF7FFAE0C, 

168 OCOCOCSDFFAEOCOCOCOCOCFF, 

169 AEOCOCOCOCOCFFAE003C7C00, 

170 00143CFCA8003CBCFCA8007C, 

171 FC8CA8007C7CBC7C007C7CFC, 

172 FC007CBCFCA80056BCBCAS00, 

173 3CFCFC2800287C7CA800I43C, 

174 BCA8007C9EBC28007CF4FC8A 

175 OOFCE5FC8A00FCE5FO2eOOFC 

176 ESCF2800FC3CCF7CA8FC6D3F 

177 7C7CFC603F7CS4FC609F28A8 

178 FC7B9F8A22FCBC9F8A00FCBC 

179 B5A1027CFC605403DEFC78S4 
160 0314FCBC01A9147CFCOOO23C 

181 3C7CA800293C7CA8003B033D 

182 00O03BO303OO003BO3O32AO0 

183 3B03032A003B03292A003B03 

184 3E2A0036033E2A003F033E2A 

185 003D033E2AO050FO782AO050 

186 FC7C00O0SOFC7C0O0OS0FC7C 

167 O000S0FC7COO0O5OBCF4A8O0 

168 SOBCF4A800F4BCF4A800F4BC 

189 F4A800F4A87CA800F4A8S4A8 

190 OOF428S40000F400S40000S4 

191 00540000S400S40000S4007C 
132 FC005400FCFCA8FCBC3C3C3C , 

193 FCFC3C28O0OO003C7CO0O000, 

194 0000OO00143CFCA800O00000, 

195 O0003CBCFCA80O0OOOO00O14, 

196 7CFCBCA8000000000014547C, 

197 BC7C0O0OO0OOOO01S47CFCFC, 

198 OO0O0O0O0014S4BCFCBC0OO0, 

199 0054A814S4BCBCA80000FCFC, 

200 540014FCBC2800S4FC3CA800, 

201 003CFC280064S40O54OOBC7C, 

202 7CA8O0S40OB9000OF8DE8CAS 

203 14FC0O0OO054F80EE07CFCFC 

204 00110054F80AED7CFC3COOOO, 

205 O054BCCFE57C3C000011O0S4 

206 6C6D9E780000000000S4BC9F 

207 6F3C000000110054BC9F6FOO 

208 0O000O0OO054BCCF6F00000O 

209 001100FCBCCFFOFCA8000000 

210 0OFCFCFOFCA8S400OO11O0S4 

211 FCFCFC54000000000014FCFC 

212 3C0OA80O001100453CFC6DO0 

213 00000000004SCF3C6DOOOOOO 

214 001100003C3C280000000000 

215 OO00FCFCA8O0OOO0001 1O015 

216 383C2AOOO00OO0000O 150303 

217 2A0000000011001523032AOO 

218 00000O0OO03F2303 17000000, 

219 0011002B23031 70000000000 , 

220 002B230317000000001 1002B, 

221 2316170000000000003F233E, 

222 17000000001 1O01S233E1700, 

223 O00O000OO0I5233E 17000000, 

224 0011001S0378B50000000000, 

225 O05OFO78ABO0OOO000 1 1 0050 

226 FC78A8OOO0OOO0000O5OFC78, 

227 A8000OO0001100S0FC78FCO0 

228 000000000014F478FCOOOO00 

229 00030000F478FC00000015S6 

230 0200F47CFC0000001SA90250 

231 FC7CAS00000015030250FC7C 

232 AS000000152B2ASOA8F4A800 

233 0000003F2A50A8S4A8000000 

234 O0000O5OA8S4A8OO00OOOO0O, 

235 0050ASS40O00000O000O0O50. 

236 A8S40000000OOO0O00S42854 , 

237 O0000O00O03C28S40OFCFC0O, 

238 OO00143C3C5428FCFCA8OO00, 

239 003C28FCBC3C3C3COOOOOOOO, 

240 00FCFC3C280OO00O000000O0, 

241 00332200000011CF33000000, 

242 CF8F9B0O000O67SE4F22O000 , 

243 8FFCA08A004SDE7474SA0011, 

244 DEFCFC8AO0OO67FCED9B0OO0, 

245 67A9ED220000CF7C6D220000, 

246 CF36672200O045698A8A00O0, 

247 EDDEDEA80054EDFCEDA80054, 

248 FCDEFCFC00S4FCDEFCFC00S4 , 

249 S4FCFCS400S433FCB97600S4, 

250 37FCBD7600S43976337COOS4 

251 147C3CS400FCS4FCBC5400FC 

252 S4FCA8S4A8A8S4FCA3S4A3A3 

253 S4FCA864A8AS54BCfl80OA8A8 

254 FCFCA8OOASASFCFCFC0OA8A8 

255 FCFCFC0OA8A8FC3F7EA8FCAS 

256 FC3F7EA8FCA8FCBDFCAS7C00 

257 FCA8FCA80OO0FCA8FCA8O0OO 

258 FCA8FCA80000FCA854A80000 

259 FCA8S4A800O0FCA854FC0OO0 

260 FCA854FCO00OFCA854FC00OO 

261 FCA854FC000054A854A80000 

262 54A8S4A8000054A3S4A80000 

263 S4A8S4A80000FCOO0OFCOO0O 

264 FCOOOOFCOOOOFCOOOOFCOOCO 

265 FCOOOOFCOOlXiFCOOOOFCOOOO 

266 FCOOO0FC0O00BCOO007C0O00 

267 A8O000540000Ae000054O000 

268 FC1428FC0054A83C3C54A8FC 

269 BC3C3C7CFC0OO0O0OO0O0O00 



66E 
6FS 
525 
4F2 
SDO 
,369 
.34F 

,soc 

,684 
,64E 
,474 
,658 
,7SC 
,6AF 
,646 
,758 
,63 A 
,443 
,364 
,OAC 
, 13A 
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2DA 
508 
470 
7A4 
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,30C 
,1CC 
,65C 
.314 
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.280 
,3C0 
,401 
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,S7C 
,47C 
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,698 
,408 
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,3EE 
,2DA 
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,379 
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,402 
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1F4 
I9C 
ICC 
,2B0 
,3A3 
,200 
,2SC 
, 168 
,32F 
,568 
,£46 
,3F9 
,3A0 
.777 
,84C 
,5A6 
,46C 
.578 
.738 
,6A4 
,834 
649 
7DE 
690 
BES 
594 
5E3 
4EC 
3F0 
3F0 
3F0 
3F0 
330 
IF8 
SAO 
2AC 



BARBARIAN I 

10 ' Pokes BARBARIAN I (cinta) 

20 ' Pedro H. Cuenca. 

30 FOR J»2000 TO M03:REA0 A«:POK£ 

I,VAL(*i"*ft*)!NEIT 

(O OPEK0UT*x":HEH0RY MFF'.CLOSEOUT: 

LOAD '! 

SO POKE 12011,201 
60 CALL 12000 
70 POKE M3.201 

00 HODE 1 

90 LOCATE 3,10:PRINT 'Eipeiar por e 

1 lisio que te ut« ? '¡¡«HILE ««• 
":«i«»UPPEP,$<IWCEY»>:HEND:PMNT ti 
I 

100 IF ii»="S' TNEN POKE 2000,0:POK 
E 2001,0 

110 LOCATE 3,15! INW 'Por que mea 

igo eepiez» (0-7) '¡ctttIF «KO OS 

in>7 THEN LOCATE US.TONT STRIN6* 

(38.' *>¡CHR«7>¡:S0T0 110 

120 IF «i*»*S* THEN POKE 17E4,IED:P 

OKE 17ES.IC7 

130 POKE 17E2,en 

140 CALL 1*0 

141 PRIKT CHM(7)CHM(7):CALL W818 
145 LOAD* Í8ARSRAF ' , 1900 

150 CALL 2000 

ICO DATA I8,F,AF,21,24,SF I I 5 I 77,23 
,!0,FC,3E,C9,32,2t,íC,3E,0,32,25,6F 
,21 ,00,09, U,80,5C,01,38,01,EO,80, I 
1,B4,5E,01,80,06,EO,60,1!,CC,65,0!, 
AO,04,EO,BO,C3,F2,6A 



BARBARIAN II 

10 ' Pokes BARBARIAN II (tinte) 

20 ' Pedro H. Cuente 

30 FOR 1*2000 TO I803:READ Al: POKE 

X,VALCt'«M):«£n 

40 OPENOtlTV:"£MRr HFFiCLOSEOOT: 

LOAD '! 

SO POKE 12014,201 
60 CALL 12000 
70 POKE- U3, 201 
80 DOOE 1 

90 LOCATE 3,I0:PRINT 'Eipezer por e 
1 lisio que t* Mte T '¡itlhiLE iit> 
":ii«:VPPERt(INKEVI):UEXO:PRINT ai 
I 

100 IF lit*'S' THEN POKE 2000,0:POK 
E 2001,0 

110 LOCATE 3.15: ÍNPUT 'Por que enea 

igo (iplezas (0-7) '¡enlIF eiKO OR 

in>7 THEN LOCATE 1,1S¡PRINT STRINtt 

(38/ ')jCHM(7)i:S0T0 110 

120 IF ■¡«•'S' THEN POKE I7E4,1ED:P 

OKE I7ES.1C7 

130 POKE 17E2,in 

140 CALL 1(0 

141 PRINT CHRt(7)CHR*(7>:CALL UBIS 
I4S L0A0*!BAR6RAF",19O0 

ISO CALL 2000 

ICO DATA 18,F,AF,21,EE,6F,6,S.77,23 
,10,FC,3E,C9,32,8C,C6,3E,0,32,EF,(F 
,21,00,09,11,80,SC,OI.38,01,EO,B0.1 
l,B4,SE,01,B0,06,ED,B0,II,CC,CS,01, 
AD,O4,E0.B0,C3.F2,6A 




Game Over 
disco 

Los pasos a seguir, para la 
carga del programa con los 
nuevos gráficos, son los 
siguientes: 



2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 

3. Salvar en cinta el código 
generado, utilizando para ello la 
opción 3 del Cargador Universal y 
empleando el nombre 
Gráficos. Bin. 

4. Ejecutar el programa I (run 



game) siguiendo sus instrucciones 

5. Cuando el programa avise 
con un beep, insertar la cinta en 
la que hayamos grabado el 
programa Gráficos. Bin, y pulsar 
una tecla. 

6. Cuando se complete la 
carga, el juego dispondrá de los 
nuevos gráficos. 



1. Teclear el programa I y 
salvarlo en disco con save GAME. 

2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 

3. Salvar en disco el código 
generado, utilizando para ello la 
opción 3 del Cargador Universal y 
empleando el nombre 
Gráficos. Bin. 

4. Ejecutar el programa I (run 
game), siguiendo sus 
instrucciones. 

5. Cuando el programa avise 
con un beep, insertar la cinta en 
la que hayamos grabado el 
programa Gráficos. Bin, y pulsar 
una tecla. 

6. Cuando se complete la 
carga, el juego dispondrá de los 
nuevos gráficos. 



PROGRAMA I (DISCO) 



10 REM Cargador de nuevos gráficos para Game Over (disco) 
20 OPENOUT "D" : MEMORY 1309: CLOSEOUT 

30 CLSIPRINT "Inserta disco original y pulsa una tecla"; :CALL &BB18 
40 LOAD "gol" 

50 PRINT CHR*(7); :CflLL &BB18 
60 LOAO "gráficos. bin" ,27430 
70 CALL 36500 



Game Over 
cinta 

Para cargar los nuevos gráficos, 
si se dispone del juego en 
cinta, hay que observar estos 
pasos: 

1. Teclear el programa I y 
salvarlo en cinta (save game). 



r- I * ■Vi *C 




DIRECCION DE COMIENZO 9C40 

1 1 80600004 1 3C8200000O96F0 , 2A3 

2 E10O000O027O610O0O000202.428 

3 C3000O4178FOE1000OD269FO, 678 

4 E100000278C302e241B4FOFO,717 

5 02824 1B4E1E1E10O41B4FOFO.7C1 

6 E1OOOO96E1FOE1O00096E1F0.690 

7 F0820096E 1 F0F0824 1 78D2F0 , 7C6 

8 FO824178D2E1F0004178E1F0, 758 

9 B5820096E1FOBS820096F087,6E2 
ÍO 7F82OOS6FO876600O041787F . 4B1 

1 1 6B00004 1 787F820000C3C33F , SEA 

12 C30041 14F096A04141 1478E1 , 52D 

13 78A018060000C33C82000041 ,2F8 

1 4 64F0E 10000D2D27061 004 1 78 , 583 

15 F0D2C3O04 1F0F0F0E 10096F0 , 7F0 

16 E 1 FOE 1 OO96F0D2C3D28236FO , 8 A7 

17 D2FO02S2D2FOC3E1E1OO7SE1 , 8B6 

1 8 3CF0E 1 00789678FOE1 007896 , 672 

19 78F0F0S2783678F0FOE1E13CS3E 

20 F0FOFOD2E1 3C78E 1 F0F0F096 . 97E 

21 7AF065E178367AF065S278B4 , 7DB 

22 3FA56B0O78E1BF2F6B0096E1 .578 

23 3F7F6800S6E 1 857F820000D2 , 528 

24 963F8200004 1 78E 18200004 1 . 384 

25 78F OE 1 00 1 80600004 1 3C8200 , 366 

26 0000S6F0E10O0000D2706100, 40A 



Army cinta 



Para poder ver los nuevos 
gráficos del Army Move se 
deben realizar los siguientes pasos: 

1. Teclear el programa 1 y 
salvarlo en cinta mediante save 
army. 

2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 

3. Salvar en cinta el código 
generado, utilizando para ello la 
opción 3 del Cargador Universal y 
empleando el nombre Ambu. 

4. Teclear con la opción 1 del 
Cargador Universal, el listado II. 



5. Salvar en cinta a 
continuación del programa Ambu, 
el código generado, utilizando la 
opción 3 del Cargador Universal y 
empleando el nombre Super. 

6. Ejecutar el programa I (run 
army), siguiendo sus instrucciones. 

7. Cuando el programa avise 
con un beep, insertar la cinta en 
la que hayamos grabado los 
programas Ambu y Super y pulsar 
una tecla. 

8. Cuando se complete la 
carga, el juego dispondrá de los 
nuevos gráficos. 



27 00O0D2D2C30O0O4178FOE10O, 4F1 
26 0096E 1 FOE 1 0O0O96FOC3D282 , 6E5 
23 4 178F0F0D2824 1 78E 1E 1 E 1 OO , 749 

30 4 178FOF0E 1 000O96E 1 FOE X OO, 6C2 

31 0096E 1 F0F0820096E 1 F0F082 , 7B2 

32 4 1 78AOF0FO824 1 1 4 AOF05000 , 5F0 

33 4 1 1 4F050B582001 4F050B582 , 557 

34 008278A07F82008278A06BOO,4AO 

35 004 1 50A06B00004 1 1 4558200 , 2C8 

36 OOC3C33FC3004 1 78E 196FOC3 , 66B 

37 4 1 3C FOE 178F0180600000000 , 3D4 

38 000000000000000000000000,000 

39 000000000000000000000000,000 

40 000000000000000000004 13C07D 

41 820OOO0O96F0E1000O0OD27O.42B 

42 6 1OOOOOOD2D2C3000O4 1 78F0 , 47 1 

43 E 10000D269F0E 1 0O00D27SC3 , 5FA 

44 D2824184F0F0D2824178D2E1,7E9 

45 F0004178E1FOB52800D2E1F0.6FA 

46 B5280096F0877F820096F087 , SF9 

47 7AOOO04l787F3EA00O41787F,3C8 

48 D2A0OOC3C33F78004 178E 1 82 , 5CB 

49 784 1 4 1 3CF0E 1 3CF0 1 806004 1,492 

50 3C82000000D2F06900000092 , 37B 

51 B0E1000000C3E1E1000000D2.4E8 

52 F0B4820000D2F096E10041E1 ,681 

53 C3B4E10041E1F0F0788200D2.726 

54 D2D2788200D2F0F0788200D2, 71C 

55 F0D2690041F0F0D2690041F0.6B8 

56 F0D2690041F0F0E1B48200F0, 753 

57 D2E1B482417AF0D2B482417A, 757 

58 F0D269O0416F4BF0690O0O97', 566 

59 4BF069000097BFB48200004 1,471 

60 BFB4820000C33FC3C3008250,54F 

61 69F0288250B4D2B428e21B06,SSS 

62 00413CC3000000D2F0788200.3FC 

63 0092B0E 1 E 1 0000C3E 1 F0B482 , 6CE 

64 00D2F0F0F08200D2FOD2F069,811 

65 41E1C3E 1F0694 1 E 1 FOE 1 F069 , 86B 

66 00D2D2C3F0E 1 00D2F03CD2B4 , 7BC 

67 O0D2F0B469B441FOFOB469B4,78S 
63 D2F0F0B469B4E1F0F0F03CD2, 942 

69 F0F0D2B43CD2D27AF0B569F0,8BE 

70 4 1 7AF0B569B400975A3F78B4 , 509 

71 00971 F7FD2B40097BF3FD269.S8B 

72 004 1BF7AD269004 13F6^EtH)0 , 47F 

73 rxui I n?R4fi?QOOOO?FOB¿fl?qn . S41- 

74 1 8O6O04 1 3C82OOO00OD2FO69 ,348 

75 00000092BOE1000000C3E1E1»4A8 

76 O0OOO0D2F0B4820OO0O2F'062,S$C 

77 69O041E1C3FO69OO41E1FOFO.6&9 

78 B48200D2D2D2B4820002FOFO,794 

79 B482O0D2F0D269OO41FOFOD2.726 

80 69004 1 F0F0D269004 1 F0F050 , 636 

81 B482O0A0F0S02882417AAOFO, 60B 

82 2882417AA0F0280041BF50B4,521 

83 4100009750B441000097SOAO,3A4 

84 82000041 AA28820000C33FC3, 3DC 

85 C300C3F069D2B482FOB4D2FO,e4D 

86 3C82 1 8060000000000000000 , ODC 

87 OOOOOOOOOOOOOOOOOOOOOOOO. 000 

88 OOOOOOOOOOOOOOOOOOOOOOOO . OOO 

89 OCW000000413C8200000002, 1D1 

90 F06900000092B0E10O0000C3, 43F 

91 E 1 E 1 000000D2F0B4820000D2 , 58C 

92 F096E10041E1C3B4EÍ0041E1 . 703 

93 FOF07882O0F0D2E1B482147A.741 

94 F0D2B482147AF0D2E10041BF.729 

95 4BF0690000B54BF06900503D, 48A 

96 BFB4820050E1BFB4820000B4, 5CF 

97 3FC3C3O082B44 1 D2B482F03C , 670 

98 D2F03C82 1 806004 1 3C825028 ,415 

99 O0D2F028F0B4O0D2F028FOB4 , 7 1 C 

100 OOD2FOA050B400D2FOAOS028, 640 

101 00S0F0AOF028O0OOF0E1F0A0, 659 

102 OO41F050FO28O0S0D2FOFO28, 5C3 

103 00F0F0F0F02800F0F0F0B400.76C 

104 0OF0FOF0B4O05050FOF0 1 400 ,618 

105 FOFOFOFOAOOOFOFOFOFOAOOO, 8C0 

106 FO7AFOF069O0507AF0B46BO0,68C 

107 O0973E3F2AO0O0973F3F82O0, 2D5 

108 003D3F3F824 1 S0B43F3E824 1 , 3C2 

109 004 13F506900004 100502800, 1F2 

1 10 00820050F0281 80650284 13C , 2FD 

111 82O0FOB450F069O0F0B4S0FO , 6B3 

112 6900F02e50F06900502850FO, 4E2 

113 E1O05OB450F0AO00S0B4D2F0, 68B 

1 1 4 000050F028F0820050FOB4E 1 , SAF 

1 1 5 28O05OF0FOF0B4O0O0F0FOF0 , 6CC 

116 B40O0OFOF0F0F0O0O0A0F0F0 , 6F4 

117 A028OOS0FOF0F0B40050F0F0 , 6CC 

1 18 F0B40OD2F0F0B5F0O097F0F0, 872 

119 B5AO00 1 53F3D6B00004 1 3F3F , 3 1 

120 6B0082413F3F3E008241BS3F,3A1 

121 F02800D2A03F820000S02800,3C3 

122 820050B428004 10000000000, 1EF 



ARMY MOVES 

DERDHAL es, un miembro del C.O.E., 

Cuerpo de Operactonas Es penates. 
Ha sido entrenado durantf largos o»íos 

para convertirse en un especialista, 
V ahora es ei pnmero de tu promoción 
Puede atravesar las /incas enemigas 
por tierra, mar o aire: domina 
todas, las téi nicas de la querrá 
en la selva, conoce toda las armas 
•> s?s un experto en explosivo* 
ARMY MOVES, treií estemos 
de combate distintos; 
• JEEP equipado con misiles tierra aire 
' HELICOPTERO COBRA para la lucha 
en la jungla 
• SOLDADO CÓE. miemhru áv un 
cuerpo de élite, entrenada en todas las 
técnicas Conocida» paia la cju«rr<i 
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Versión AMSTRAO 



Army disco 

Los pasos para cargar los 
nuevos gráficos, en la versión 
disco, son prácticamente iguales 
que en cinta. Basta con: 

1. Teclear el programa I y 
salvarlo en disco mediante save 
army. 

2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 

3. Salvar en disco el código 
generado, utilizando para ello la 
opción 3 del Cargador Universal y 
empleando el nombre Ambu. 

4. Teclear con la opción 1 del 
Cargador Universal el listado II. 

5. Salvar, en el mismo disco en 
que salvamos Ambu, el código 
generado, utilizando Ja opción 3 



del Cargador Universal y 
empleando el nombre Super. 

6. Ejecutar el programa I (run 
army), siguiendo sus instrucciones. 

7. Cuando el programa avise 
con un beep, insertar el disco en 
el que hayamos grabado los 
programas Ambu y Super y pulsar 
una tecla. 

8. Cuando se complete la 
carga, el juego dispondrá de los 
nuevos gráficos. 




PROGRAMA I (CINTA) 



10 MEMORY 9999 

30 FOR X-37330 TO 37366: READ A*:P0XE X.VALt "&"+«•> :NEXT 

40 MODE 1:PRINT:PRINT:PRINT "Inserta cinta original y pulsa una tecla" 



:call U 



"ARMY MOVES" 



50 MODE 0I1NK 0,0:B0RDER O:L0CATE 6,12:PR1NT 
CO LOAD "¡c 
70 POKE &90EA,&02:POKE &90EB.&91 
80 CALL 37000 
90 END 

'S°^ A I5 3«,7,cd,6a,bb.6.0,11.0,c0,CD.77,BC.21,DC.46.CD,83.BC.CD.7A,ec,e,0.11,f 
c0.CD,77,BC,21,4C.3F,CD.83.8C.CD,7A,eC.c3,36. 1 ' ' 



LISTADO I 

DIRECCION DE COMIENZO. .4000 

1 1 eOAO000O0O4OC84OCOC0C0C , 0E6 

2 00O0O0O804840CSDAEOCO0O0, 1B3 

3 0OO804840C5DAEOC0000O400, 1B7 

4 04840CFFFF0C058A04000484 , 3B9 

5 OCFFFFOC058A040004840CFF,43C 

6 FFOC040COC0004840C7FBFOC305 

7 0COCOC0C0C840CSDAE0C040C, 1F3 

8 840C0C840C 1 D2E0CC0C048C0 , 406 

9 CCl840C0C0C0C840C480C4895,33S 

10 3F3F3F3F840C480COC840COC, 288 

11 OCOCOC48C00COC84OCOC0COC, 1F8 

12 0C840C840C840C0C0C0C0408, 1EC 

13 00480C840C0004080C000040.13C 

14 0C840800005D84002A400C84,273 

1 5 081 5005584 1 53F04C084083F , 2D9 
1 G 2A0C403F952E0C0C 1 DSA3F08 , 2SE 

1 7 402E846AC0C09548 1 D80006 A , 4C0 

18 402A000016809S00002E842A, 270 

19 000015481DC10003F9S2A0000, 178 

20 156A3F0000153F000000003F,1S1 

21 2AO0180A0000000000000000.04C 

22 0000000000040C840COCOCOC, 0C4 

23 0O0OOO08O484OCSDAEOCO0O0, 1B3 

24 000804840C5DAEOC00000400, 1B7 

25 04840CFFFF0C460A04000484 , 379 

26 OCFFFFOC450A040004840CFF.3FC 

27 FF0C040C0C0004840C7FBF0C.305 

28 0C0C0C0C0C840CSDAE0C040C,1F3 

29 840C0CS40C1D2E0CC0C048C0,40B 

30 C0840C0C0C0C840C480C4895, 335 

3 1 3F3F3F3F840C480C0C840C0C , 288 

32 0C0C0C48C00C0C840C0C0C0C, 1F8 

33 0C840C840C840COC0C0CO4O8, 1EC 

34 00480C840C0004080C002A40. 166 

35 0C84081S00SD84153F400C84,2B2 

36 083F2AS5843F1D2EC0841D2E,363 

37 3F0C406AC02E0C0C1DC09508,375 

38 402E046 AC0C09S08 1 D80006A , 400 

39 C02A00001 5C09500003F1 D2<V, 2DA 

40 0000 152E3FOO00153FO00OO0, 006 

4 1 0O3F2A0OO0OOO0O0OO00O0OO , 069 

LISTADO II 

DIRECCION DE COMIENZO .4000 

1 1 80A000000O0000O00OO00O0,. ¿22 

2 OOOOOOOOOOOOOOOOOOOÓOOOO'IOOO 

3 000000000000000000000000,000 

4 000000000000000000000000,000 

5 000000000000000000000000,000 

6 00000000050A00000016FFOO, 123 

7 0O0O0F00OOOO55FFAAAAOO00, 287 

8 270055 1 DFF7F5S00000033FF , 39E 

9 AEOC7FAA002A000033SSFFFF,493 

10 FFSSAA150000050AC33FC397,47E 

11 BF2A270F0A4FCFFF0F5F7FBF, 4F2 

12 11C3C30F4FDFOOOOOOFFOOOO,3D3 

13 0005228A0000005500000000, 106 

1 4 670000000000000000000000 , 067 

1 5 000000000000000000000000 , 000 

16 000000000000000000000000,000 

1 7 OOOOOOOOOOOOOOOOOOOOOOOO , ooo 

i e OOOOOOOOOOOOOOOOOOOOOOOO , ooo 

19 000000000000000000000000,000 

20 000000000000000000000000,000 

21 0000 IBOAOOOOOOOOOOOOOOOO, 022 

22 000000000000000000000000,000 

23 000000000000000000000000,000 

24 000000000000000000000000,000 

25 000000000000000000000000,000 

26 000000000000000000000000,000 

27 00000000050000000015FFOO,119 

28 O00O0FOA0055FFFFAA00000O.316 

29 27005510FFBF5S00000033FF,3DE 

30 AEOC7FFFAA2A000033S5AEFF,S41 

31 FF7FFF150000050AC33FEB97,52S 

32 BF2A270F0A4FCFBF0F5F7FBF,4B2 

33 11 C3C30F4FDF000000FF0000 , 3D3 

34 0005008A0000005SOOOOOOOO.OE4 

35 228A00000000000000006700, 113 



36 000000000000000000000000,000 

37 OOOOOOOOOOOOOOOOOOOOOOOO, 000 

38 000000000000000000000000,000 

39 000000000000000000000000,000 

40 OOOOOOOOOOOOOOOOOOOOOOOO, 000 

4 1 00000000 1 80AOO000O0O0O0O , 022 

42 000000000000000000000000,000 

43 OOOOOOOOOOOOOOOOOOOOOOOO. 000 

44 000000000000000000000000,000 

45 000000000000000000000000,000 

46 000000000000000000000000,000 

47 000000000000000000000000,000 

48 550000000500000000FFAAOO, 203 

49 OOOOOFOOOOFFFFFFAA000000.3B6 

50 270AFF10FFBFFF00000033FF,53C 

51 AE0C7FFFBF2A0O0O3355AEFF,556 

52 FF7F2A15270F050AC33FC3BF,486 

53 BF2A 1 1 C3824FCFBF0F5F7FBF , 5C3 

54 OOOOOO0F4FDFOO0O0OFFOOOO, 23C 

55 O005O08AOO0OOO550O000O00,OE4 

56 228AO0000OO00O000O00670O, 113 

57 000000000000000000000000,000 

58 000000000000000000000000,000 

59 000000000000000000000000,000 

60 000000000000000000000000.000 

61 000000000000 180A0O0O0O0O, 022 

62 OOOOOOOOOOOOOOOOOOOOOOOO, 000 

63 000000000000000000000000,000 

64 000000000000000000000000,000 

65 000000000000000000000000,000 

66 000000000000000000000000,000 

67 0000BF5S000000000O0O0000, 114 

68 FFAA2AO0OO0O0OOOOOOOFFFF.301 

69 15000000000000557FFF0000, 1E8 

70 O00000OO00AEBFAABFO0OOO0.2D6- 

71 O00O555D7FEBFFO00O0O000A.32S 

72 045OC30FO0AA0O0O0F0OFF6B,356 

73 OF00O0O0O0051B6FAA2F00O0,167 

74 O00000O033459FAA0OOO00OO, 1C1 

75 0000338A4500000000000000, 102 

76 11O0OABAOOOOOO0O0O0OOF05.OB9 

77 O08AOOO0OOOO000F87OF 1 1 8A , 1 C A 

78 O0000OO00SC3O00A 1 1000000 , 0E3 

79 000033000000000000000000,033 

80 220000000000000000000000,022 

8 1 0000000000000000 1 80AO00O , 022 

82 000000000000000000000000,000 

83 000000000000000000000000,000 

84 000000000000000000000000,000 

85 OOOOOOOOOOOOOOOOOOOOOOOO , 000 

86 000000000000550000000000,055 

87 OOOOOOOOFFAAAA0000000000.253 

88 005S55BF 1 50000000000005S, 1D3 

89 FFFFOOOOOOOOOOOOOOAEBFAA ,415 

90 BF00000000000050FFC3FFOO,3DD 

91 O0O0O0O0O4SDEBOFO0AAOO0O,20S 

92 OFOOFF6BOF0000000005 1 BSF , 207 

93 A A2F000000000000334 59FAA , 29A 

94 000000000000338A45000000, 102 

95 000000001 1 OOOABAOOOOOOOO , OAS 

96 00000F0S008A000000000005.0A3 

97 870F 1 1 8A00000000004EOOOA , 1 86 

98 110000000000058200000000,098 

99 000000006300000000000000 , 063 

100 000022000000000000000000,022 

101 00000000000000000000180A,022 

102 000000000000000000000000,000 

1 03 OOOOOOOOOOOOOOOOOOOOOOOO , 000 

104 000000000000000000000000,000 

105 000000000000000000005555 , OAA 

106 O0O0O0O0O0O0000OFFAA2AOO, 1D3 

107 OOOOOOOOOOOOBFFF 1 5000000, 1D3 

108 O0O0O055FFFFO0O00O000O00.253 

109 O0AEBFAABFO0O0O0O00OO0SD,333 

1 1 FFC3FF0000000000045DC30F , 3F4 

111 O0AAOOO00FOAFF6BOFOO0OOO,23C 

112 OO061BSSAA2FO0O000O000O0, 14E 

113 33459FAA000000000000338A , 27E 

114 4500000000000000 1 1000A8A, OEA 

115 0000O0O0O0O0OFO5OO3AO0O0, OSE 

116 O0O0OO0F87OF 1 1 8A00O0O000 ,140 

117 05C3000A1 100000000003300, 116 

118 000000000000000022000000,022 

119 OOOOOOOOOOOOOOOOOOOOOOOO , 000 

120 000000000000000000000000,000 

121 OOOOOOOOOOOOOOOOOOOOOOOO , 000 



PROGRAMA I (DISCO) 



10 OPENOUT "D": MEMORY 1309:CL0SE0UT 
20 LOAD "arml" 

30 CALL iBB18:PRINT CHR*<7>! 
40 LOAD "super.bin", 16204+1000 
50 LOAD "ambu. bln" , 18140+1000 
60 CALL 37S20 
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CARGADOR DE CINTA 

5 REM ttt Cargador de cinta spiriW 
« 

10 QPEN0UT"a". MEMORY lBFf:CLQSE0UT 
20 MODE 0: BGRDER 0:FOR i=0 T0 15:RE 
fiD a:INK i,a:NEXT 

30 FOR i=42S0O T0 42560:READ at:P0K 

E i.VALCi'+aO-.NEXT 

35 LOAO'Ispigraf.iCOOlPRINT CHR$(7 

)CHR$(7):CALL 4BBI8 

40 LOAO'Itpload'lCAlL 42500 

50 DATA 0,2,9,10,3,3,16,13,15,1,18, 

20,6,13,24,26 

60 DATA 3e,t9,32,5d,12,td l 48,12,af, 
32,3d,8a,32 1 e2,8b,21,0,t,ll,d9,5a,0 
1,84,01, ed,b0,ll,91,5e,l,7e,l,ed,b0 
,ll,bl,68,l,14,l,ed,b0,ll,89,6a,l,c 
2,0 1 ed,b0,ll,7d,78,l,c2.0,ed,b0,t3, 
8e,7b 



CARGADOR DE DISCO 

1 REH CARGADOR DISCO SPIRIT 

10 MODE 0: 80RDER OHNK 0,0: INK 1,2: 

INK 2,9:INK 3,10:INK 4,3: INK 5,3: IN 

K 6, 16: INK 7, 13: INK 8, 15: INK 9.1MN 

K 10,18: INK 11,20:INK 12,6:INK 13,1 

3: INK 14,24: INK 15,26 

20 FOR 1=42500 TO 42545: READ a»:P0K 

E i,VAl<'i*+a»):NEXT 

30 openoutv:memory íbff:closeoüt 

40 L0AD'spigraf",aCO0:PRINT CHR»(7) 
CHR»(7):CALL &BB18 
50 LOAO'scr'.aCOOO 
60 LOAD'villie 

70 POKE &8A3D,0:P0KE &8BE2,0:CALL 4 

2500 

80 DATA 21,0,0,11^9,58,01, 84,01, ed 
,b0,ll,91,5e,l,7e,l,ed,b0,ll,bl,68, 
I,l4,l,ed,b0,ll,89,6a,l,c2,0,ed,b0, 
U l 7d,78,l l c2,0,ed,b0,c3,8e,7b 



LISTADO I 

1 2003000FFEFFOOE0073F2SFF , 479 

2 C0F8187F4AFF3OFC20FF89FF,76B 

3 08FE4 1 FF08FF84FE42FF 1 OFF , 7 1 F 

4 84FF82FF10FF42FF84FF10FF,7E6 

5 42FFB2FF4FFF3AFFC9FFB0FF.8F0 

6 C6FF07FFC6FF00EFOF1F67FF.733 

7 80C00F1F27FF80CO061F67FF, S5F 

8 00C0O00F86FF8OEO06 1 FESFF , 5BD 

9 COFOOD1FESFFEOFOOD1FESFF,7AO 

1 EOFOO 1 1 FE6FFE0FOO2OFE 1 FF , 796 

11 E0F0060F2FFFC0F8071FSFFF,64F 

12 BOF80F1FCFFF70FCOF3F26FF,683 

13 F8FC1F3F01FFF8FE1F3F8FFF,734 

14 FCFE 1 F3FFFFFFCFE0F3FFFFF , 89C 

1 5 COFEOF 1 FF8FF0OEO07 1 F83FF , 668 

1 6 80COOOOF73FF80COOOO 1 F7FF , 5F8 

17 O0C02003O0OFFEFFO0E0O73F.415 

18 2SFFC0F8187F4AFF30FC20FF.707 

19 89FF08FE41FF08FF84FE42FF,798 

20 1 0FF84FF82FF 1 0FF42FF84FF , 7E6 

21 10FF42FFB8FFCFFF3AFFC7FF,8D4 

22 30FFC6FFOFFF87FFOOEFOF1F,665 

23 27FF80C006 1 F67FFO0CO00OF , 4C0 

24 A7FFO0C0O61FE6FF80FOOE3F,62D 

25 E5FFE0F81D3FE5FFF0Fe003F , 830 

26 E5FFF0F8011FE6FF70F8020F,74A 

27 EOFFFOF8060F2FFFE0F8071F,7O8 

28 SFFFD0F80F1 FC7FFB0FC0F3F ,714 

29 20FF78FC1F3F07FFF8FE0F3F,63B 

30 8FFFFCFE03 1 FFFFFFCFE04 1 F , 7C5 

31 FFFFFCFE0F3F07FFFCFE1E3F.7A3 

32 78FF78FE1C3FFOFCOOFC003F,66F 

33 EOF8000020030000003E040E.24B 

34 O0001C7F04OEO0003E7F041E, 18C 

35 0000227FOC1F00001CFFOE9F.294 

36 0O017FFF0EDFO003FFFF8FFF.5FB 

37 010FFFFFC7FF0S1F FFFFD 6FF, 7CB 

38 OD 1 FFFFFD8FFOE1 FFFFFBBFF , 7E6 

39 0E3FFFFF8BFF1F3F7FFF7BFF, 7SB 

40 1F7FBEFFFFFF3DFFD0FFBFFF.92F 

41 70FFDDFFBFFFFDFFE9FFBEFF , AB9 

42 FDFFEBFFBEFFFBFFF7FFDCFF , B6E 

43 70FFFFFF80FE20FBOOFFOOE0.7E5 

44 O173O0FF40E0O1O3FFFFCOEO.635 



45 01O3FFFFC0E0O1O3FFFFC0F0.754 

46 0103FFFFE0F00107FFFFE0FB.7B0 

47 0307FFFFF0F80307FFFFF0F8,7E0 

48 O3O7FFFFF0F80307FFFFF0F8,7E0 

49 0107FFFFEOF81F0300000000,400 [ 

50 0000*0000000000000000000 , ooo 1 

51 000000000000000000000000,000 I 

52 000000000000000000000000,000 f 

53 000000000000000000000000,000 I 

54 00000000000000000000007E , 07E ¡ 

55 000000003CFF000000007EFF , 2B8 , 

56 000000007EFF000000007EFF.2FA 

57 OOO0O0FD7EFFO08F78FFB0FF,66C 

58 1EFF99FFBDFF99FF3DFFC3FF.907 

59 BCFFF2FFFFFF4FFFEFFFFFFF.AE4 

60 F7FF58FFFFFF1 AFF 1 3FF7EFF , 8F3 

61 CSFF377FBDFFECFE377F81FF,8S9 

62 ECFE377F81FFECFE37FF81FF,8C0 

63 ECFF63FFC3FFC6FF63FFC3FF.9F8 

64 C6FF7 1 FFC3FF8EFF 1 DFFBDFF , 95C 

65 B8FF 1 6030000000000000000 , 100 

66 0O01O0EO00O0O0O3C0E00000,284 

67 010340FE000001074CFE0003.297 

68 O3FFD4FE01OFF3FF94FE061F.68D 

69 BCFFB8FE0D1F7FFF38FC0B3F,699 

70 FFFF70FC153FF8FFF0F81B7F,837 

71 C3FFE0FC377F95FFE8FC2F7F.87A 

72 2BFFE8FC377F5FFFD8FE2F7F,7Ae 

73 6FFFFCFE 1 77F5FFFFCFE 1 F3F , 7B4 i 

74 7FFFFCFEOF3F9FFFFCFE031F, 780 

75 FFFFF0FE000700FF00F80000,5EA 

76 O0O0O000OFO31F3FFFFFFCFE.468 

77 103F00FF04FE133FFEFF74FE.611 

78 1 63F7FFF 14FE1 43FF9FF74FE , 6 A2 

79 143FF0FF14FE143FFFFF74FE.724 

80 1 53FFFFF1 4FE 1 73FFFFF74FE , 72A 

81 1 73FFFFF04FE 1 73FFFFF34FE , 6DC 

82 133FFEFF34FE103F00FF04FE,SD1 

83 1 F3FFFFFFCFE033F8OFFE0FE , 7F5 

84 180154FE54FE54FE54FE54FE.6B3 

85 54FE7CFESCFE38FE387C107C.69C 

86 1038103810381038107C187C,240 

87 387C 1 87C287C 1 87C287C 1 07C , 3B0 

88 003818040000010300800000, 0D8 

89 0000010FOOE000000000061F, 115 

90 COFOOOOOOOOOOA 1FA0F00000 , 369 

9 1 OOOOOC7F60FC0000000030FE ,315 

92 18FE0000003E50F8143E007C36A 

93 1 CFF60FF0CFF38FF7FFFFFFF , 838 

94 FFFFFEFFC0FFO0FFO0FFO3FF.8BA 

95 80FF00FF0OFFO1FFD2FF24FF.771 

96 D2FFC5FFADFF5BFF2DFF2BFF , 8F 1 

97 A8FF8AFF6SFF 1 1 FFAAFFBAFF , 906 

98 E5FF55FF AAFFBAFF29FF5SFF ,916 

99 88FFBAFFE9FF5 1 FFAAFF8AFF , 9AA 

100 69FF1 5FFAAFFDBFF2DFF35FF , 85F 

1 1 D5FF24FFD2FFCBFF80FF00FF ,910 

1 02 OOFFO 1 FFC0FF00FF00FF03FF , 6BE 

103 7FFFFFFFFFFFFEFF00FF00FF , 975 

104 00FF00FF200300FF00FF00FF,51E 

105 FFFFFFFFFFFFFFFF79FFFFFF , B6E 

106 FEFFB6FFFFFFFEFFA9FF7FFF.AD3 

107 FEFF89FF7FFFFEFFE6FFFFFF , AE3 

108 E5FF01 FF1 7FFDAFF6AFFEBFF , 926 

109 A2FFBEFF55FFD AFFEEFF55FF , 99C 

110 CAFF6AFFS5FFB2FF6AFF4BFF ,90ft 

111 CDFF9SFFB7FFFFFFFFFFFFFF . B 1 

112 00FF34FF00FF0E1F34FF70F8,5F9 

113 0F1FB5FFF0F8071FBSFFE0F8,77C 

114 00FF00FF00FF7FFFFFFFFEFF, 876 

115 OOFF 1 FFFFEFFOOFFOOFFFOFF , 807 

1 16 357F7FFFFCFE207FFFFFF4FE , 8BB 

117 21 7F7FFFECFE227FFFFFF4FE , 899 

118 1 07F7FFFE8FE0C3FAFFFF0FC , 7D8 

119 021F5FFFC0Fe000700FF00E0,51D 

1 20 0307FFFFCOEO000000OO000O , 3A8 
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CARGADOR DISCO 

10 REH CARGADOR DISCO CRAY 5 

20 MODE 0:FOR i=0 T0 15:READ b: INK 

i,b:NEXT:B0R0ER 

30 MEMORY 10000:LOAO'crayO":ON ERRO 

R GOTO 40:LOAD"tr»yl" 

40 MEMORY 891:L0AD"crayl':M00E 2:IN 

K 1.0:LQA0 , cray2":P0KE 4861A,20l:P0 

KE 489C3,0:F0R i=&9FD0 TO 4A00A:REA 

aí:P0KE i,VAL("J'n*):NEXT 

50 OATA 0,26,20,14,6,3,24,8,15,4,18 

,9,14,1,13,0 

60 PRINT CHR*(7)CHR$(7):CALL &8B18: 
LOflD'c raygraf ' , ÍE000: CALL &9FD0 
70 OATA 21,0,e0,ll,3e,46,l,80,l,ed, 
b0,ll,3e,64,l,c0,00,ed,b0,ll,7e,69, 
l.BO.l.ed.bO.U.be.ft.l.cO.O.ed.bO, 
U,3e,73,l,c0,00,ed,b0,21,be,44,ll, 
bf,44,l,7f,l,36,0,ed,bO,c3,29,7f 




CARGADOR DE CINTA 

5 REH ti cargador tinta cray 5« 
10 MODE UBORDER 0:F0R i=0 T0 15:RE 
AD a:INK i.aíNEXT 

20 FOR í=i9FC0 T0 4A022:READ a*:P0K 
E i,VALCs'+aí):NEXT 
30 INPUT "Vidas infinitas : ',v*:lF 
ÜPPER*(LEFT*(v», i ))=*«' THEN POKE 
40901,205 

40 INPUT "Tieipo infinito : ",v*:IF 
HPPER$(LEFT*Cv$, 1))='N' THEN POKE 
40906,1 

50 NOOE 0: LOAD* üoader...": POKE &A1 
C1,&CD:P0KE &AlC2,aC0:P0KE &A1C3.&9 
F : CALL &A028 

60 DATA 0,26,20,14,6,3,24,8,15,4,18 
,9,14,1,13,0 

70 DATA 3e,c9,32,la,86,3e,0,32,c3,8 
g.SeJ.cd.Sa.bb.cd.ie.bMe.ff.cd.e 
b,bc,6,0,ll,0,e0,cd,77,bc,21,0,e0,c 
d,83,bt,cd,7a,bc 

75 DATA 21,0,eO,ll-,3e,46 J l, 80,01, ed 
,60,11,38,64,1, cO.O.ed.bO.UJe^, 

I, 80,l,ed,b0,ll,be,6b,l,c0,0,ed,b0, 

II, 3e,73 

80 OATA I,c0,00,ed,b0,21,be,44,ll,b 
f,44,l,7f,l,af,77,ed,bO,c3,29,7f 



LISTADO I 

1 003064CCCCCCCCCC00D8F0F0, 748 

2 F0A40C4CO0D8FOFOFOFOFO4C7CO 

3 0OD8FOFOFOF0F04C0OD8FOFO,88C 

4 FOF0F04CO0D8F0FOFOF0B44C.BB4 

5 00D8FOF0FOFOB4E400D8FOFO,8E8 

6 F0F0B4E400D8F0F0F0F0B4E4 , 9A8 

7 OOD8F0FOFOFOB4E4OOD8FOF0 , 8E8 

8 F0F0B4E400D8F0F0F0F0B4E4 ,.9A8 

9 O0D8FOFOFOFOF0E40OD8FOFO , 924 

1 F0F0F0E400D8F0F0F0F0F04C , 988 

11 ÓOD8FOFOFOA40C4C003064CC604 

12 CCCCCCCCOOOOOOOOOOOOOOOO, 330 

13 003064CCCCCCCCCC00D8F0F0,748 

14 F0F0F0E400D8F0F0F0F0F0E4 , A20 

15 00D8F0F0F0F0F0E400D8F0F0,924 
ie F0F0F0E400D8F0F0F0F0B4E4 . 9E4 

17 0OD8FOF0F0F0B4E4O0D8F0F0,8E8 

18 F0FOB4E4O0O8F0FOF0F0B4E4 . 9A8 

19 00D8F0F0F0F0B4E400D8F0F0,8E8 

20 F0F0B4E400D8F0F0F0F0B4E4,9A8 

2 1 OOD8FOFOFOFOB4E400D8FOFO , 8E8 

22 F0F0F0E40008F0F0F0F0F0E4.A20 

23 O0D8F0F0F0FOFOE400D8F0FO,924 

24 F0F0F0E40OD8F0F0F0F0F0E4, A20 

25 0OD6FOF0F0FOF0E4O0D8FOF0,924 

26 FOF0F0E4O0D8F0FOF0FOF04C . 988 

27 O0O8F0FOF0F0F04CO0D8FOF0,88C 

28 F0F0F04C00D8F0F0F0F0F04C,8F0 

29 00D8F0F0F0F0F04C0008F0F0.88C 

30 F0A40C4C003064CCCCCCCCCC.67C 

3 1 0000000000000000003C3C3C , 0B4 

32 3C3C3C3C003C3C3C3C3C3C3C . 294 

33 00000000005400A800000000.0FC 

34 0041FC2800000000005496A8,2F7 

35 00000000004 1 FC2800000000, 1 66 

36 006496 A800O0O0O00041FC28,2F7 

37 00000000004 1C38200000000, 186 

38 004 1 C38200000000004 1 C382 , 30C 

39 00000000004 1 C38200000000 , 186 

40 0041C382000000000041C3B2,30C 

4 1 00000000004 1 C38200000000 , 1 B6 

42 0041C382000000000041C382.30C 

43 O0O0O0OOO0C3C382O0O00000.2O8 

44 00C3C38200000000C3C3C382.4D3 

45 0054E9C3C3C3D6A800FCE9C3,7AC 

46 C3C3FCA800FCE9C3C3D6FCA8.90F 

47 O0FCE9C3C396FC0000FCE9C3, 7AS 

48 C37CFC000054E9C3C3FCA800 , 6A2 

49 000000FC0000000000000054, 150 

50 A800000000000000FC000000, 1A4 

5 1 0000000054 A8000000000000 , OFC 



52 OOFC0000000000000054A800 , 1F8 

53 OOÓOOOOOOOOOFCOOOOOOOÓOO.OFC 

54 000054A800000000000000A8 . 1A4 
SC OOOOFCFCFCFCFCF30050FOFO , 80F 

56 F0F0F0F000S0A40C0C0C0C0C , 4F0 

57 0O5O0C0COC0C0C0C0O0OF00C, 194 

58 0CFOA40C0O0OA40C58FOOCOC, 3BC 

59 OOOOSOOCA40COC08000000F0.210 

60 OCOCOC0800000000A40C4C88, 1B0 

61 00000000500C4COOOOOOOOOO.OA8 

62 SOA44C0000000000500C4COO. 1E8 

63 0O0O000O5OA4CC0O0OOOOO0O, ICO 

64 0C0C0C88000000040C0C0C08.0DC 

65 000000000000000000000000,000 

66 000000000000000000000000, 000 

67 000000000000000000000000, 000 

68 oooooooooooooooooooooooo , ooo 

69 000000000000000000000000.000 

70 0OOOOOOO0O0OFCFCFCFCFCA8,594 

71 0O0OFCFCFCFCFCF3005OFOF0.8OF 

72 FOF0F0FO0OSOA40C0COC0COC. AFO 

73 0O5O0C0C0C0COC0C0O0OFOOC, 194 

74 0CFOA40C0OOOA4OCSBFO0C0C3BC 

75 0000500CA40COC08000000F0.210 

76 OCOCOC0800000000A40C4CG8 1B0 

77 oooooooosoocacooaooooooo.oas 

78 5OA44C0000000O005O0C4C00, 1E8 

79 0000000050A4CCÓOOOOOOOOO, ICO 

80 0C0C0C880O0O0O04OCOC0C08.ODC 

81 0000DE0000EDO00O0O54CFA6,396 

82 54CFAB000054CF0EEDC7A800.62B 



83 0045C3CFCBC3DEOOOOEDC3C3, 6B6 

84 C3C3DE0054CBC3C3C3C3C7AB, 7FE 

85 54CBC3C3C3C3C7A845C3C3C3, 828 

86 C369C38A45C3C3C3B63CC38A.716 

87 45t3C3C3963CC3A845C3C3C3,7S9 

88 C369C3A845C3C3C3C3C3C3A8 ,816 

89 4SC3C3C3C3C3C3A845E 1 D202 , 849 

90 E1C3E1A84SFOD2D2D2D2D2A8.924 

91 45F0D2D2F0C2F0A645E1F0D2,91B 

92 D20202AB45E1F002E1D2D2A8.933 

93 45C3C3C3C3C3C3A845C3C3C3.80D 

94 C3C3C3A845C396C369C3C3A8,7E9 

95 45C33C966969C3A845C3C3C3,6A5 

96 C3C3C3A84SC3C3C3C3C3CSA8,870 

97 3C3C3C3C00003C3CB43C0000.258 
96 3C3C003C2CA43C3C00003C4C284 

99 9C3CA4583C3CS86C8C8C3C3C4A0 

100 58583CCC444C4C4C3C3CCC88.4AC 

101 444G4C4C4C4CCC88444C4C4C , 43C 

102 4C4C8C88444C4C4C4C4CCC88,4C0 

103 444C4C4C4C4CBC8844E44C4C, 494 

104 4C4CCC8844E44C4C4C4C8C88,558 

1 05 44E44C4C4C4C8C8844E44C4C , S2C 

1 06 4C4C8C8844E4E44C4C4C8C88 , SBO 

107 D8D88CCCCC4CCC88DBD88CCC , 87C 

108 CC4C4CCCD8D88C88CC4C4CCC , 724 

1 09 D8D88C88CC4C4CCCD8D8CC8e , 7F8 

1 10 CC4C4C4CD88CCC8eCC4C4CCC , 698 

1 1 1 D88CCC00444C4CCCD88CCC00 , 608 

112 4 ACC4C4CF0B43C0044D8B43C , 594 

113 OOOOOOOOOOOOOOOOOOOOOOOO . 000 




K.Y.A. 

Vence, destruye 
los muros 



Casa creadora: LORICIELS 
Proein, S. A. Tel. 276 22 08 

Cinta: 995 ptas. Disco: 2.395 ptas. 



El objetivo de este juego consiste en vencer en 
sucesivos enfrentamientos al ordenador o a 
adversarios humanos. Para vencer en cada 
enfrentamiento es necesario acertar con el disparo 
de nuestra nave a la enemiga cinco veces. El 
decorado es diferente en cada pantalla, aunque 
en todas está constituido por muros de distintas 
características. Así, hay ladrillos que se pueden 
destruir con balas, otros en los que las balas 
rebotan (y si no tenemos cuidado podemos 
destruirnos a nosotros mismos), otros que quitan 
munición y otros que la reponen. Lo más 
destacable de este juego es la posibilidad_de 




redefinir todas las características. Así, podemos 
cambiar desde el color de la pantalla al tipo de 
adversario que queremos e, incluso, podemos 
construir las pantallas a nuestro gusto y después 
salvarlas en cinta. Poco más que comentar de 
este juego, apropiado sobre todo para que los 
más pequeños de la casa celebren sus 
competiciones particulares. El movimiento es lo 
mejor conseguido, pues es suave y rápido, 
mientras que los gráficos son muy simples: 
únicamente hay diversos tipos de ladrillos y 
varios tipos de nave. El juego carece de música, 
y los efectos de disparo y explosión no son muy 
sofisticados. 



Originalidad 


El El El El El 


Gráficos 


El El El □ □ 


Movimiento 


El El El El □ 


Sonido 


El El El □ □ 


Dificultad 


El El El El □ 


Adicción 


El El El □ □ 


V'Horrible 


V VUn rollo V V /Pasable 




jeno }f V VMuy bueno 



METR0CR0SS 

Correrá 

de obstáculos 



Casa creadora: U.S. GOLD 

Erbe Tel. 314 18 04 

Cinta: 875 ptas. Disco: No hay versión 



Nos encontramos ante un juego en el que 
nuestra misión no es preservar la seguridad 
de nuestra galaxia, ni luchar contra interminables 
hordas del mal, ni tampoco debemos rescatar 
ninguna princesa de garras de pérfidos 
personajes. En Metrocross únicamente tenemos 
que procurar completar el mayor número de fases 
en el menor tiempo posible. Esto lo podemos 
hacer saltando, corriendo o patinando. Hay 
ciertos obstáculos que dificultan nuestra misión, 
como latas de Coca-Cola (!), vallas, tramos de 
pista ralentizantes, losas repletas de ácido, etc. 
Pero también contamos con la ayuda de 
trampolines, que nos permiten avanzar muy 
rápidamente y sorteando gran número de 
obstáculos, monopatines, que no se frenan en los 
tramos ralentizantes, dado que aumentan nuestra 
velocidad o detienen momentáneamente el 
tiempo, etc. Metrocross, como veis, es un juego 
con un tema bastante original. El movimiento 
está bien realizado, con mucho realismo, sobre 
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todo en las caídas o saltos de nuestro personaje. 

Gráficamente, sin embargo, resulta un poco 
tosco, aunque hay que tener en cuenta que está 
elaborado en modo 0, el de menor resolución. El 
juego es simple pero entretenido, pues a medida 
que vamos completando fases, descubrimos 
nuevos objetos que nos obstaculizan o ayudan, lo 
que nos incita a seguir jugando. 



De unos meses a esta parte, se viene 
observando en el mercado de software una 
tendencia bastante generalizada a la producción 
de juegos en los que lo primordial sea la acción, 
por encima de cualquier otra característica. Slap- 
Fight, adaptado de las máquinas recreativas, es 
un nuevo juego de estas características. Debemos 
conducir nuestra nave a través de un territorio 
hostil, procurando adentramos lo más posible y 
eliminando el mayor número de enemigos. 
Introduce una novedad importante: la posibilidad 
de cambiar de armamento a medida que se 
desarrolla la partida. Cuando matamos a algunos 
de nuestros enemigos, aparece bajo ellos una 
estrella, que debemos recoger si queremos 
aumentar las prestaciones de nuestra nave. Al 
recogerla podemos observar cómo una pequeña 
flecha apunta, sucesivamente,^ a cada una de las 
opciones con que contamos. Estas son: 

Speed. Pulsando la barra espaciadora veremos 
cómo nuestra nave se mueve más deprisa. 

Shot. Nos permite volver a seleccionar los 
disparos de ametralladora. 

Side. Si la elegimos, nuestra nave disparará 
también hacia los lados. 

Wing. Si tenemos láser, veremos cómo éste se 
duplica en dos rayos. Si seleccionamos esta 
opción por segunda vez, se añadirán a nuestra 
nave dos pequeños módulos laterales, que 
también disparan, por lo que amplían el campo 
de barrido de nuestros disparos. 




Originalidad 


El El El El □ 


Gráficos 


El El El El □ 


Movimiento 


ei El El El □ 


Sonido 


m El El El El 


Dificultad 


El El El □ □ 


Adicción 


El El El □□ 


Horrible 


/ VUn rollo VV^Í Pasable 


YVV /Bueno V'VVVVMuy bueno 


SLAP-FIGHT 



De nuevo 
en combate 




Casa creadora: IMAGINE 

Erbe Tel. 314 18 04 

Cinta: 875 ptas. Disco: No hay versión 



SPEED 
OMOT 

tsxoer 

UXNQ 
BOtiB 
T7rtBER 
H. HIBS. 
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Bomb. Cambia nuestros disparos por bombas, 
que provocan una explosión de gran magnitud 
cuando impactan con un enemigo. 

Láser. Este tipo de disparo presenta la ventaja 
de no inutilizarse aunque impacte con una nave 
contraria. 

H. Miss. Esta opción selecciona misiles 
dirigidos por el calor. Son muy lentos, pero 
nunca fallan. 

Shield. Seremos inmunes a los disparos 
enemigos durante unos instantes. Resulta 
interesante tener la flecha apuntando a esta 
opción y, en un momento de dificultad, 
seleccionarla. 

Como hemos visto, las posibilidades con que 
podemos aumentar la eficacia de nuestra nave 
son variadas, lo que da un poco de dinamismo al 
juego, que sin esto resultaría monótono. 

Slap-Fight, en su aspecto gráfico, está bien 
realizado, aunque el tipo de visión desde arriba 
no da muchas facilidades para el lucimiento. Las 
naves, tanto la nuestra como las enemigas, son 
muy pequeñas, y las balas que nos lanzan son 
tan sólo un diminuto punto, por lo que muchas 
veces, sobre todo en las primeras partidas, 
notamos su presencia cuando perdemos una vida. 
El movimiento resulta un poco lento, aunque con 
la opción speed podemos paliar esto en parte. 



Originalidad 
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Gráficos 
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Movimiento 


ei mw 


Sonido 


El El El □ □ 


Dificultad 


El El El El □ 


Adicción 
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STAR RAIDERS II 



Invasores estelares 



Casa creadora: PROEIN, S. A. 
Proein, S. A. Tel. 276 22 08 

Cinta: 880 pías. Disco: 2.395 ptas. 



Star Raiders II es otro típico juego de «matar 
marcianos». Para ello contamos con una nave 
equipada con tres tipos de armas, que 
emplearemos según el enemigo a que nos 
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enfrentemos. Las fuerzas enemigas mermarán 
nuestra energía y, ocasionalmente, inutilizarán 
alguno de nuestros sofisticados dispositivos: 
sistema láser, cañón iónico, motores, etc. Para 
repostar energía y armamento podemos dirigirnos 
a alguna de las estaciones espaciales dispersas por 
el sistema, pero debemos tener cuidado en no 
acercarnos demasiado al Sol, que se halla en el 
centro del mismo, pues esto sería fatal para 
nuestra nave. 

En Star Raiders II se ha elegido un sistema 
de juego que intenta simular las tres dimensiones, 
pues nosotros vemos en la pantalla del ordenador 
lo que veríamos si estuviéramos dentro de la 
nave. De este modo, podemos observar cómo 
nuestros enemigos aumentan de tamaño a medida 
que se van aproximando a nuestra posición. Este 
método de presentación, que en otros juegos ha 
dado gran resultado, no es aprovechado del todo 
por éste. A nosotros nos da la impresión de que 
hay pocos tamaños intermedios, y vemos «crecer» 
repentinamente a las naves enemigas. El color es 
pobre, así como la definición de los gráficos, pues 
la mayoría de las naves espaciales no aparecen 
«rellenas», dando la impresión de haber sido 
fabricadas con trozos de alambre. Aparecen muy 
pocos contrincantes al mismo tiempo (tres a lo 
sumo). 

Contamos con un mapa informativo de nuestro 
Sistema Solar, y podemos dirigirnos a la zona 
que deseemos. En este juego la táctica es 
importante para la consecución de nuestro 
objetivo. Lástima que esta idea no se haya 
aprovechado con unos gráficos más cuidados y 
veloces. La melodía de presentación es buena, y 
los sonidos propios del juego (disparos, 
explosiones...) están bien conseguidos. 
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Para solicitar 
tus tapas, 
llámanos 
al tel. (91) 
734 65 00 




Esta sección está dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, : HOBBY 
PRESS, S A. AMSTRAD Semanal. Apartado de Correos 232 
Akobendas. Madrid. 
¡ABSTENERSE PIRATAS! 



Estoy interesado en 
intercambiar programas, trucos 
y cualquier tipo de información 
en general del Amstrad PC 
1512 o compatible IBM. Tengo 
entre otros: Cobol, Turbo- 
Pascal, Wordstar, Dbase III, 
Summer Games II, etc. Llamar 
al tel. (96) 544 89 63. O 
escribir a Julio Ruiz Reche. 
Ramón Vicente Serrano, 12, 4 
2. 03206 Elche (Alicante). 



Vendo Amstrad CPC 6128 
F.V, con impresora Admate 
DP-80 LC¿ y el cable de 
conexión al ordenador, ratón 
Starmouse con software, cable 



conexión cassette y 20 discos de 
3 pulgadas con los mejores 
programas comerciales de 
utilidad y unos 100 juegos (los 
más actuales), todo comprado 
en enero 1987. Hardware 
valorado en 150.000 ptas. 
Software valorado en más de 
250.000 ptas. Vendo todo por 
140.000 ptas. También 
contactaría con usuarios del PC 
1512. Tel. 268 26 65. Andrés. 
Comidas. 



Vendo Amstrad CPC 6128, 
en perfecto estado, con monitor 
color y unidad de disco, 
manuales y revistas, discos con 



Mercado 

CCMÜN 



juegos y utilidades. 
Opcionalmente: impresora 
DMP-2000 (Amstrad). Nueva y 
de muy altas prestaciones. Por 
100.000 ptas (Impresora 35.000 
ptas.). Interesados Uamádme al 
tel. 747 33 47 de Madrid. Mario 
Pons. 



Vendo ordenador Amstrad 
CPC 6128, con monitor en 
color, por 90.000 ptas, incluyo 
discos de sistema operativo y 
utilidades del sistema, manual 
en inglés y en español, regalo 
libro acerca del sistema 
operativo CPM. Vendo 
programas de utilidad, de 



De chip a ck 

"Sábado Chip", de 17a 19 h. X L 



o 

h 



dibujo y diseño, procesadores, 
compiladores, juegos (en total 
16 a 400 ptas. el disco), 
también una colección de 
revistas (Amstrad User, Tu 
Micro Amstrad) a mitad de 
precio de portada, volúmenes 
de Gran Biblioteca Amstrad a 
300 ptas y discos vírgenes de 3' 
de la marca AMSOFT a 700 
ptas. (tengo veinte). Llamar a 
Juanjo, tel. (96) 333 91 89 de 
Valencia, o escribir a Juanjo 
Ripollés Ortiz. Pza. Manuel 
Sanchís Guarner, 6, 1, 1. 46006 
Valencia. 



Vendo ZX Spectrum de 48 
K, junto con su respectivo 
transformador, por 7.000 ptas. 
Interesados llamar al tel. (96) 
242 35 15 o escribir a Rafael 
Castell Llacer. Avda. País 
Valeciano, 26. 46680 Algemesí 
(Valencia). 



Vendo, compro o cambio 

juegos y programas para CPC 
464. Vendo o cambio revistas 
Amstrad User y AMSTRAD 
Semanal . Escribir a José Luis 
Toledo de Dios. Brígida Alonso, 
7, 1.° A. 28038 Madrid. 
Contesto siempre. 



Intercambio programas para 
ordenadores Amstrad CPC 464 
y 6128, tanto en cinta como en 
disco. Los interesados deben 
mandar su lista a Carmelo 
Guzmán de la Rosa. Avda. 
Andalucía, 25. 111560 Barbate 
(Cádiz). O llamar al tel. (9.56) 
43 03 35. Prometo contestar a 
todos. 



Compro o cambio por 

programas de todo tipo el 
manual de todas las rutinas del 
Firmware, es decir, el Firmware 
Specification Manual Soft 158. 
Los interesados llamar al tel. 



(96.5) 566 19 75 (si es posible 
por las mañanas). Si los 
interesados son de la provincia 
mucho mejor. Pedro Navarro 
Miralles. San Juan, 31, bajo 
dcha. San Vicente (Alicante). 



Vendo o cambio programas 
para Amstrad CPC 464. 
Interesados, dirigirse a Manuel 
Francisco Barrios Pérez Olmedo 
2-4, 1.° D., 37003 Salamanca. 
Precio a convenir. 

• ••••••••••••• 

Cambio juegos, todos 
funcionan perfectamente, 
grabados en disco nuevo por 
primera vez. Absoluta seriedad. 
Escribir a: Francisco Fuentes. 
Pintada Baja, 21. 23440. Baeza, 
o llamar por tel.: (953) 74 01 94 
de las 4 de la tarde hasta las 12 
de la noche. 





Todos los sábados, de 5 a 7 
de la tarde, en "Sábado Chip". 
Dirigido por Antonio Rúa. 
Presentado por José Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informática. Haciendo 
radio chip... estilo Cope. 
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RADIO POPULAR 

... de chip a chip 



LO MAS ESPECIAL 
_ ^ DE AMSTRAD 
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TtomciMO'm 

Programación USP 
coinpiem IN CINTA 

Dt CASSCTTi 





Historia de la 
Informática. 
Cómo trabaja 
un 

programador. 
Todos los 
comandos rsx. 
La informática 
en casa. Los 
mejores 
superjuegos 
del mercado. 



Todas las 

impresoras del 

mercado. 

Software 

integrado: 

Fidicom, un 

paquete 

enteramente 

profesional. 

Paginación de 

memoria. 

Inteligencia 

artificial. 



Robótica. La 
segunda 
revolución de 
la informática. 
Forth, la 
sustitución del 
código 
máquina. El 
juego de la 
vida. El 
mundo de los 
Plotters. 




Especial 
Juegos: Pokes 
para todos. Lo 
mejor del 
mercado en 
joystick. 
Juega con 
Forth. Serie 
oro: Juego de 
ajedrez. 
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Desvelamos 
los secretos 
de los mejores 
juegos de 
Amstrad 
Animator, un 
programa 
apasionante. 
CAD/CAM, lo 
mejor del 
software 
nacional. ^ 
s 





sgg. sene oro 



Las pantallas iniciales se pueden pasar 
pulsando tecla, excepto si se nos pide la 
cantidad inicial de dinero. El ordenador 
indica el número de cartas a cambiar en el 

tapete. 

En la línea inferior se nos indica quién es mano y 
en la línea superior se nos dan las instrucciones a 
seguir: 

— Si pulsamos «X» cuando se indique, el 
ordenador nos asesorará qué cartas cambiar. Una 
vez hecho, pulsar tecla... Si no se requiere ayuda, 
pulsar Return. 

— Preguntará si la carta N quiere ser cambiada. 
Si es así pulsar «S» y se borrará dicha carta. Si no, 
pulsar Return. 
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— Preguntará lo que queremos apostar o nos dirá 
lo que nos falta para igualar la apuesta del 
ordenador, la cual puede ser superada. 

— Una vez que se indique quién gana (en el 
centro del tapete), pulsar tecla. 

Hay que tener en cuenta que el ordenador no 
enseñará sus cartas si pierde. 

Si se usa cinta y se produjese el error «Memory 
Full» (cosa casi imposible) se grabarán los datos, a 
continuación se rebobina la cinta y se pulsa tecla. 

Si no se quiere ir a alguna apuesta, pulsar Return 
dos veces. 

Al principio puede parecer fácil ganarle, pero más 
adelante veréis que no es así. 



Tabla de variables 



nombreS 
nivel 
dinl 

din2 

juegol 

azarl 
azar2 
iul W 

¡u2 (i) 

plS O) 

P 2S 0) 

vblenl W 

vblenlS 0) 

vblen2 (i) 

vblen2S (¡) 

puntl y puntl 

punt2 y P" nt1 




Muestro nombre. 
Nivel de ¡uego; hay i. 
D - ln ero que posee el 
ordenador. 
Nuestro dinero. 
Swrtcn de quién es mano. 
Su valor es 1 o /. 
Número de la carta/s. 
Palo de la carta/s. 
juego del ordenador en 
una carta. 

Nuestro ¡uego en una 

Palo del ordenador en 
una carta. 
Palo de una carta 

CarMnúmero) que no 
descarta el ordenador. 
Carta (palo) que no 

nos descartamos. 

1 Puntuaciones para ei 
¡uego del ordenador. 

2 Puntuaciones para 
rjMordenodor. 

fardTapuestas 
del ordenador en una 
Acumulador de apuestas 
nuestras en una mano. 
Toral apostado en una 
mano. Las demás 
variables como «veces», 
«cartas»..., son 
contadores, 

comparadores, ere. 



Estructura del programa 



10-480 
490-580 
590-840 

850-1100 
1110-2090 
2100-2500 

2510-2920 
2930-3210 
3220-3430 
3440-3570 
3580-3850 

3860-4190 
4200-4320 

4330-4480 
4490-5170 



Presentación . 

e^-X^ien 
C™ ^principal del programa. 

ordenador. 
Puntuación para rm 

K de papara cambio 
de cartas defusuano. por 
parte del ordenador. 




— «1 -^Gt^^p ■ 
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10 REN »»»»»»»»»»> PRESE 
NTACION V DEFINICION SE CARACTERES 
PARA PALOS 
20 BODE O 

30 ON ERROR SOTO 4200 

40 RANDONIZE TIBE 

50 BORDER 3,5 

60 PAPER ÍOIPEN 14 

70 LOCATE 6,12:PRINT "POKER" 

80 VIND0V»3, 1,20. 13,25:PENI3,4:PAPE 

RI3,ll:CLS43 

90 VINDOVH , 1 , 20, 1 , 1 1 : PENI4, 0: PAPER 
I4,1:CLSI4 

100 LDCATEM,3,5:PRINTM,'F ORAS 
TERO" 

1!0 L0CATEI4,S,7:PRINTI4,*te echas 
un" 

120 L0CATEI3,9,5:PRINTI3,"P0R" 
130 L0CATE»3,4,7:PRINTI3, "NACHO JIM 
ENE?" 

140 L0CATEI3,9,8:PRINTt3,"(c)" 
150 ENV 1,1,15,1,1,0,1,1,0,1,12,-1, 
8,2,-1,20 

líO SOUNO 1,200,100,15,1 
170 eOSlfB 400 
180 PRINTM, " JUGADAS" 
190 PRINTM, "==========* 

2C0 PRINTM," - parejaVPRINTM," 
- doble pareja":PRINTM," - trio" 
PRINTjtí,' - «talera";PRHiTI4," 

:PRINTM N " -fuü":P>HH#4 
," - poker":PRINllf, ' - escalera* 
color" 

210 L0CATEI3,4,5/ 
AXINA:":LDCATE|5,B,7 
*' 

220 GDSUB 4 
230 L0CATE«,3,5:PR! 

PRINTM: PR! 




410 LDCATEM,16,l:PRINTM,"-"CHR»(2 
29)"-" 

420 LDCATEI3,2, 13:PRINT#3, "-"CHR»(2 
28)"-" 

430 L0CATE#3, 16, 13:PRINT«,*-*CHR*( 
227)"-" 

440 ENV 2,1,15,1,1,-3,2,1,0,3,1,1,3 
,1,-1,3 

450 SOUNO 1,667,50,15,2,0 
460 CALL &8B18 

470 LCCATEI3, i , !2:L0CATEM, ! , 12:F0R 
xM TO 25:PRINTf3:PRINTM:NEXT 
480 RETURN 
490 SYNBOL AFTER O 
500 SYMBOL 240,0,24,24,60,60,126,12 
6,255 

5¡0 SYNBOL 241,255,255,126,60,24,24 
,60,255 

520 SYNBOL 242,66,102,231,231,255,2 
55,255,255 

530 SYMBOL 243,126,126,60,60,24,8,0 
,0 

540 SYNBOL 244,0,0,24,24,60,60,126, 
126 

550 SYNBOL 245,255,255,126,126,60,6 
0,24,24 

560 SYNBOL 246,60,60,60,60,60,255,2 
55,255 

570 SYNBOL 247,255,255,255,24,24,24 
,255,0 

580 NOOE l:CLS:BDR0ER 9 
590 ¿uegol=l 
GOTO 4330 
610"Rm4>»»)»»»»»>» EMPIE2 
A EL JUEGI 
620 REN 

630 LDCATE#l,l5,lB7PSi(T#],dini:LCC 
ATEI1 , 1 , 4: PRINTIl ,din2: ¡F"jvegol=l 
THEN LOCATE 23, 25: PRí NT"NANOrD%£L 
SE LOCATE 10,25:PRINT"NAN0 TU" ^sJU 
REN »»»»»»»»»» CARTAS le» 
ORDENADOR ««««««« 



890 IF juegol=l THEN GOSUB 2930 : 
CAMBIO CARTAS YO (ICAHBIYD) 
900 IF juegolM THEN GOSUB 4020 
: 'ENSE\A NIS CARTAS (KASIGNA) 
910 IF juegol=l THEN punt2=0: GDSUB 
2510 : 'PUNTUACION PARA NI JUEGO (N 
CDPUNAP) 

920 IF juegol=2 THEN GDSUB 2930 : ' 
CAMBIO CARTAS YO (ICAHBIYO) 
930 IF juegol=2 THEN GOSUB 4020 
: 'ENSEVA MIS CARTAS (KASIGNA) 
940 IF juegol=2 THEN punt2=0:6DSvTj 
2510 ¡'PUNTUACION PARA NI JUEGO f M 
CDPUNAP) 

950 IF iuegol=2 THEN GDSUB 1110 
'CAMBIA CARTAS EL ORDENADOR íCAMDVF 
) 



960 IF juegol=2 THEN puntI=0:GOSÜB 
2100 ¡'PUNTUACION JUEGO ORDENADOR 
(MCOPUNAP) 

970 ap 1 =0: ap2=0 : suta l =0 : su*a2=0: apu 
=0 

980 IF juegol=2 THEN GDSUB 3440: ¡F 
ap2<>0 THEN GDSUB 3220:6DT0 1040 EL 
SE punt2=l:puntl=0:60TD 1060 
990 IF juegol=l THEN GOSUB 3220: IF 
aplOO THEN GDSUB 3440:G0TD 1000 EL 
SE Duntl=l:punt2=0 
1000 WHILE suaal<>suiia2 AND (aplOO 
AND ap2<>0) 

1010 GOSUB 3220: 'SUBE EL ORDENADOR 
1020 GOSUB 3440: 'SUBO YO 
1030 VENO 

1C40 WHILE 5uialOsuia2 AND (aplOO 
AND ap2<>0) 

1050 GOSUB 3440: 'SUBO VB 
1060 6DSUB 3220: 'SUBE EL ORDENADOR 
1070 VENO 

1080 GDSUB 3580: 'COMPARACION DE PUN 
TUACIDNES 

F juegol=l THEN juegol=2 ELSE 
juegot*L 

1100 GDTDOS^: 'SALTA AL PRINCIPIO 
PARA LA SIGUIENTE HANC 
1110 REH CAMBIO DE CARTAS PARA ORDE 
NAODR CON C/flTRO MAS CARTAS CON M 
ISMD PALI 
1. 

vblenl(x)=0:víjenl*(x) 



1360 vblenK^=0:vb¡enl*!x)= 
1370 NEr 
1380 vetes=0 

1390-Iíem tnn i„ 

¿OR.X7KTO 5 



1440 y=y+I 
1450 VENO 
1460 NEXT 
1470 





ÍTDApO 

dtortaJp 

r Ejpf fi ESCALERA t 





>6 THEN 1340 
D 5 
■TD 5, 
lf(y) THEN IF pli! 
L»(yJ<>f>l*íy*l) T 
1 (y):vblenl!y)=jul 
: Dl*(K):vblen!(x 



1300 FDR x=I TD 5 

1310 IF vblenl(x)=0 THEN vblenKx)- 
jul(x):.vblenl*(x)=pl»(x) ELSE tbl&r I 
ltx)=0:»blenl»(x)=" 
1320 NEXT 
1330 SOTO \m 

1340, m «m« cambio oe cartas p 

r juegolM ,EN :puntl=C:S0SUB jm EL ORDENADOR CON 2 o MAS CARTAS 
:¡C0 :TOITllUON JUEGO ORDENAW' IGUALES** 

1350 FOR x=l TO 5 



TcesOO 

1520 sífi* unm 

míl DROENADDI 

Atxxxmx 

( 1530 FOR rfMf 
N. ¡540 vblenHxlW' 

1S50 NEXT 

15ÍÍ veces=0 

1570*R£^ itttt 

5 

1580 FOR xHtD 5 
1590 y»! 

1600 VHILE xOy 
1610 IF juKxKjuK 
:k»=pl«x):jul!x)=juiTy):pl*(x)=p» 
Cy): julCy)=k:p!$Cy)=k* 
1620 y=y*l 
1630 VENO 
1640 NEXT 

1650 REN «I» 2.- asigna las carta 
s que se queda a otras variables 
1660 y=l 

1670 FDR x=l TO 5 
1660 vblenl<y)=0 

1690 WHILE jul(y+l)-jul(y)=! ANO y< 
5 

1700 vblenl(y)=jul(y):vblenit(y)=p! 
«(y) 

1710 vblení!y+l)=jul!ytl):vblenU(y 

H)=pl»(yil) 

1720 y=yt¡ 

1730 VENO 

1740 y=y+l 

1750 NEXT 

1760 IF jul(5)-jul(l)=12 THEN /bien 
Hl)=jul(l):vblenll(l)=pMl):vblen 
K5)=julí5):vblenli(51=plt(S):veces 
=vecestl 

1770 REH ttm 3 - asigna O a las c 
artas que r,o se queda 
1780 x=5 
1790 VHILE x>0 

1800 IF vb!enl(x)O0 AND vblenHx-l 
SOO ANO vb!enl(x)-vb¡erl(x-l)<>l T 

S vblenl(x-l)=0 
1S10 x=x-l 
185* VENO 

183\F0R x=5 TD 1 STEP -1 
1840 ¥F vblenlíxlOO THEN veces=vec 
estl/ 

-185t> ¡F vb!enl(x)=0 ANO recesOO TH 
EN FDR y=x TO 1 STEP -l:vblenl(y)=0 
:x=0:NEXT 
1860 NEXT 

1870 IF jul(5)-jul(l)=12 THEN vblen 
im-jul<l):vb!enl»ü)=plt(!):vblen 
l(5)=jui(5):vblenl$(5)=pl*(5):veces 
=veces*l 

1680 REN DESCARTE PARA EL ORDENADOR 



V COMPROBACION DE NO REPETICION 
1690 cartas=0 
1900 FOR ¡i=l TO 5 

!9:0 IF vb¡er!(x)=0 THEN cartas=car 
tas+í 
1910 NEXT 

1930 LOCATE*!, 2, 18:PRINT*i, "cambio 

¡"¡cartas 
¡910 FOR v=¡ TC 5 

'.950 azar!=ÜNT(RND*13)*l>:azír2=:: 
rJT<RND«)+226) 

¡960 IF vblertl(x)=0 THEN vblenl(x)= 
azarl:vblenl»(x)=CHR»(azar2! ELSE 2 
050 

1970 FOR y=". TC 5 

1980 IF ju!(y>=azari UNO ?¡í(y!=CHR 
$íazar2) THEN vbler,l(x)=0:GCTO ¡950 
1990 IF ju2(y)=azar! ANO p2»!yI=CHR 
s(azar2) THEN vbler,!S¡í)=0:GOTC 1950 
2000 FOR 1=1 TD 5 
2010 !F t=x THEN t=tfl 
2020 IF vblenüt)=azari ANO vblenl* 
(U=CHR*íazar2) THEN vbleni(x)=0¡60 
TO 1950 
2030 NEXT 
2040 NEXT 
2050 NEXT 
2060 FOR x=! TC 5 

2070 jul(x)=vblenl(x):pl»lx)=vblenl 
i(x) 

2080 NEXT 
2090 RETURN 

2IO0 REH »»»»»»»»»» PUNTO 

ACION SEGUN JUEGO PARA ORDENADOR 

21I0 REH I.- Ordena las tartas 

2120 FOR x=l TO 5 

2130 y=I 

2U0 I/HILE xOy 

2150 IF jul(xKjuUy) THEN k=jul!x> 

:k$=pl«x):iul(x)=jul(y):pl»(x>=pl$ 

(y):jul<y)=k:pl«(y>=k* 

2160 y=yM 

2170 VENO 

2I80 NEXT 

2190 REH CARTAS IGUALES (par 

eji, doble pareja, trio, ful!, poke 
r) 

2200 puntl=0 
2210 FDR x=l TO 5 
2220 y=l 
2230 VHILE xOy 

2240 IF JulCxWulíy) THEN puntl'pu 
ntl+l 

2250 y»y+l 
2250 VENO 
2270 NEXT 

2260 IF puntlOO THEN RETURN 

2290 REH ESCALERA 

2300 puntl=0 

2310 FDR x=l TD 5 

2320 y»l 

2330 VHILE xOy 

2310 IF jul(x)-jul(y)=ABS(i) DR jul 
(x)-juI(y)=ABS(i2) THEN puntl=puntl 
+1 

2350 y=y+l 
2350 HENO 
2370 NEXT 

2380 IF puntl=4 THEN puntl=3.5 ELSE 
puntl=0 

2390 REH COLOR 
2400 puntil=0 
2410 FDR x=l TO 5 
2420 y=l 
2430 VHILE xOy 

2440 IF pl*(x)=pl*(y) THEN puntll=p 

HtlM 

2450 y=y+l 

2450 VENO 

2470 NEXT 

2480 IF puntl=3.S AND punlll=10 THE 



N pimtl=10:RETURN 

2490 IF puntl<>3.5 ANO puntll=10 TH 
EN puntW.n:RETÜRlt 
2500 IF puntl<>3.S ANO puntllOlO T 
HEN puntUO: RETURN 
2510 REH »»»»»»»»»» WNTU 
ACION SE6UN NI JUEGO 
2520 REH 1.- Ordena las cartas 
2530 FOR x=l TO 5 
25fc y=l 
255» VHILE xOy 

2560\IF iu2(x)<ju2(y) THEN k=ju2<x) 
:k»«pjs(x>:ju2(x)=ju2(y>:p2«¿ ' 
(y):júí(y)=k:p2l(y)-kí 
2570 y*\M 
2580 VENO 
2590 NEXÍ 

2500 REH \ CARTAS IGUALES 
eja, dobleWeja.trio, tull, 



3040 FOR x=l TO 5 
3050 azarl=INT((RNO»j:' 
T((RN0*4)*32M 
305* IF vblen2(x>=0 THEN vbler,2(«ji 
azar!:vb¡er,2í(x)=CHRí(azár2) EijH 
OTO 3170 

3070 FDR y=l TO 5 

3080 IF ju2(y)=azarl ANO p2*!y)="'" 
*(azar2) THEN vblen2tx) 
3090 NEXT 



12=0; 



V 



2510 punt2= 
2620 FDR x=lÜD 5 
2630 y=l \ 
2640 VHILE x<>\ 

2650 IF ju2(x)=iu2(y) THEN punt2=pu 
nt2+l 

2660 y=y+l 
2670 VENO 
2680 NEXT 

2690 IF punt2O0 THEN RET 
2700 REH • ESCALERA 
2710 punt2=0 
2720 FDR x=l TO 5 
2730 yl 
2740 VHILE xOy 

2750 IF ju2(x)-ju2(y>=A8S(lVTR ju2 
(x)-)u2(y)=A8S(12) THEN pvnt2=pimt2 
+1 

2760 y=y+l 
2770 VENO 
2780 NEXT 

2790 IF punt2=4 THEN punt2=3.5 ELSE 
punt2=0 

2800 REH COLOR 
2810 puntI2=0 
2820 FDR x=l TO 5 
2830 y=l 
2840 VHILE xOy 

2850 IF p2*(x)=p2»(y> THEN puntl2=p 
untl2+l 
2860 y=y+l 
2870 VENO 
2880 NEXT 

2890 IF punt2=3.5 ANO puntl2=10 THE 
N punt2=10:RETURN 

2900 IF punt2<>3.5 ANO puntl2*10 TH 

EN punt2=3. 75: RETURN 

2910 IF punt2<>3.5 ANO puntl2<>10 T 

HEN pun 12=0: RETURN 

2920 RETURN 

2930 REH »»»»»»»»»> RUTINA 
OE CAMBIO OE CARTAS PARA HI Y COHP 
ROGACIONES DE NO REPETICION 
2940 zx=2 
2950 FDR x»l TO 5 
2960 vblen2(x)=0:vblen2*(x)=" 
2970 NEXT 

2980 LOCATE ll,l:INPUT"PULSA x PARA 
AWOA'.aüIF it="X" DR at=V THEN 
G0SU8 4480 

2990 FOR x=l TO 5 

3000 LOCATE U.UPRINT'CAHBIAS LA*¡ 
xi'í'üINPUT *(S/N)*,sino*:LOCflTE 1 
l.UPRINT" " 
301O IF itnotO'S' ANO ilnsíOV T 
HEN vblen2tx)=iu2íx):vblen2«(x)«p2* 
(x) ELSE LOCATE l,zxt2:PRINT" "¡LOC 
ATE l,zx+3:PRINT" ": LOCATE 8,«:PRI 
NT CHRt( 222) ¡LOCATE I.ZXiPRINT • 

3020 zx=zx*5 
3030 NEXT 




,321 

S20 REH 

TA EL ORDE*L_ 

IF a«al=5U»a2 m sumIOO TH 
FURN^^lW 

.DCATE 10,25TPRINT 
' : LGCi 

O YL 

¡250 faro¡=INT!R 
3260 IF nivel 
EN puntl=0 EL 
1=2 THEN apl=( 
arel: GOTO 3351 
3270 IF puntl=0 THEN 
RINT'NO VOY 

3280 IF puntl=l THEN apl=(INT( 
¡HlMOOHfarol: 'PAREJA 

JF puntl=2 THEN apl=tINT((RNDl 

6) Mm«fl)+farol:'D08LE PAREJA 
3300 IF pwrH?3 THEN apl=(INT((RNOÍ 

8) *l)*100)tfarH^TRIO 
3310 IF puntl=4 Tfi»kJpl=nNT((RNÍ» 

9) tl)*100)*faroi:'FUU . 
3320 IF puntl=6 THEN apI=rHlT(<RNO» 

7) tl)*100)+farol: 'POKER 
3330 IF puntl=3.S THEN »pl=(INT( 
0»9)+l)tl00)+farol: 'ESCALERA NORMA! 
3340 IF puntl=3.7S THEN apl=(INT((R 
ND*1I)+I)*100)tfarol: 'COLOR 

3350 IF puntl=10 THEN apl=(INT((RND 
*U)tI)*100)4farol: 'ESCALERA OE COL 

OR 

3351 IF apDdinl ANO suea2=0 THEN a 
pl-dinl 

3362 IF apüdinl AND (suia2-sueal)< 
=dinl THEN apl=dinl 
3353 IF apl>dinl AND (si»a2-suiai)> 
dinl THEN ipl=0 

3370 IF apl+5ueal<suia2 ANO puntül 
THEN apl=5uia2-suHl:S0Utie 1,200,1 
00,15,1,0 ELSE IF spltsueal<suia2 A 
ND puntl<=l THEN apl=0:LOCATE 10,25 
¡PRINT "NO VOY -.SOUND 1,800,1 
00,15,1, 0:suial=si»a2:RETURN 
3380 IF apl>din2 ANO suia2<>0 THEN 
apl=suia2-suiai :SOUND i ,200, 100, 15, 
1,0 ELSE IF apl>din2 AND su»a2=0 TH 
EN apl=din2:S0VN0 1,200,100,15,1,0 
3390 LOCATE 23,25:PRINT api 
3400 su»al=su»al-tapl:dinl=dinl-apl 
3410 L0CATEI1,15,18:IF dinl=0 THEN 
PRINTI1,* — " ELSE PRINTIl.dinl 
3420 60SU6 3560 
3430 RETURN 

3440 REH »»»»»»»»»» APVES 
TAS 



1 $FOR x=1 TD 3:SDDN 
.,2ÍTe>Wíl5,J:F(ip y=l TO 300:N 

:next:souno i,i50,15,15,i:for z=i t 
o 300:next:sound i, 120,15,15, i: next 

¡FOR x=l TO 500:NEXT 
3650 FOR x=l TO 200¡NEXT:FOR x=l TO 
2-.S0UNO 1, 150,10,15, 1¡F0R y=l TO 3 
oo:next:next:fdr x=1 TD 2:S0UN0 1,1 
60,10,15,l:F0R y=l TD 300: NEXT: NEXT 
¡FDR x=l TD 2:S0UND 1, 180,10,15, 1:F 
OR y=l TO 300:NEXT:NEXT:S0UN0 1,200 
,20,15,1 
3660 GOTO 3780 

3£70 IF punt2>puntl THEN LDCATEI1.7 
,H:PAPERfl,6:PENIl,l:PRlNTIl,"TU 6 
ANAS": FOR x=l TO 30O:S0UND l,x/2,l, 
15, 2.0: NEXT: din2=din2*apu¡ GOTD 3780 
3680 IF (puntl=3.5 ANO punt2=3.5) O 
R (puntlMO AND punt2=10) THEN IF j 
ul(5)>ju2(5) THEN puntl=l:pur,t2=0 E 
LSE punt2=l:puntl=0 
3690 FDR x=l TO 5:vblenltx)=0:vb!en 
2(x)=0:NEXT:F0R x=1 TO 5 
3700 IF jul(x)=jul(x+l) THEN vblenl 
(x)=jul(x):vbler,l(x+l)=jul(x+i) 

3710 IF ju2(x)=ju2(x*l) THEN vblen2 

(x)=ju2(x):vblen2(x+I)=ju2(x*l) 

3720 NEXT 

3730 FOR x=l TO 5 
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3740 FDR y=l TD 5 

3750 IF vblenl(x)>vblen2(y) THEN pu 
ntl=puntl+l ELSE IF vblenlíxKvblen 
2(y) THEN punt2=punt2M 
3760 NEXT:NEXT 

3770 IF punti<>punt2 THEN 3620 ELSE 
LOCATEH , 1 , I3ÍPENI1 ,4¡PRINTI¡ , "I6U 
ALES':dinl=dinl*(apu/2):din2=dir,2t( 
apu/2):60T0 3640 

3780 LDCATEli, 2,9:PflPER#l , 3:PENI1 ,3 
¡PRINTII," -¡pop 
ER#3,6:PENI1,1 

3790 IF su»al=0 DR si»s2=0 THEN 364 


3800 IF puntl>punt2 THEN 3820 
3810 IF punt2>puntl THEN 3830 
3820 FDR x=13 TD 17:LDCATEIt,2,x:PR 
THTtl.-PARA MI ...■¡ipuM.DCATEIl.l 
,x-l:PRINTIl," 

íSDUND í,67,20.7,O,O,7::NEXT:F0R x= 
1 TO 1500:NEXT¡LOCATEIl,i,17¡PRINT« 

1. " \'G0TD 3840 
3830 FDR x=9 TO 5 STEP -i¡ LDCATEli, 

2, x¡PRINTtl,"PARA TI .."¡apulLOCAT 
Ell.l.xM: PRINTII," 

"ISDUND 4, 100,20,7,0, 0,7:NEXT 
:F0R x=l TO 1500:NEXT:L0CATEI1,1,5: 
PRINTI1," 

3840 LDCATEli , 15,18:PAPERI1 ,6¡PENI1 
, 1 : PRINTII , di ni : LOCATE! 1, 1 , 4:PRINT# 
l.din2:SDUN0 1,4000,20,16,0,0,2 
3850 CALL IBBIBIRETURN 
3860 REM »»»»»»»»»» ASI6N 
A CARTAS A LDS VALORES NUMERICOS 
3870 zx*2 

3880 FOR x=33 TD 39: FDR y=zx TO zx* 
3: LOCATE x,y:PRINT * ":NEXT¡NEXT:zx 
=IX*5:L0CATE l,l:IF zx=27 THEN 3830 
ELSE 6DTD 3860 

3890 zx=2:FDR xM TD 5:IF pl»(x)=CH 
R*(22B) DR pli(x)=CHR»(227) THEN LO 
CATE 33,zx:PEN 7:PRINT jul(x)¡plí(x 
) ELSE LOCATE 33,zx:PEN OlPRINT ¿ui 
(xJ|pl»(x) 
3900 PEN O 

3910 IF pl»(x)=CHR*122«) THE» LOCAT 

E 39,zxt2!PEN 7¡PRINT CHR$(242):LDC 

ATE 39,zx*3:PRINT CHRK243) 

3920 IF pl*Cx)=CHR*(229) THEN LOCAT 

E 39,zx*2:PRINT CHRI(240):LDCATE 39 

,ZX*3¡PR1NT CHRM241) 

3930 IF plí(x)=CHRÍ!226) THEN LDCAT 

E 39,zx+2¡PRINT CHRÍ (246) ¡LOCATE 39 

,zxt3¡PRINT CHRí(247) 

3940 IF pl»(x)=CHR*(227) THEN LDCAT 

E 39,zx+2:PEN 7:PRINT CHR*(244):LDC 

ATE 39,zxt3¡PRINT CHRt(245) 

3950 IF jul(x)=ll THEN LOCATE 34,zx 

¡PRINT *J "¡plj(x);' • 

3960 IF jul(x)=12 THEN LOCATE 34,zx 

¡PRINT "Q "; p l$<x)¡" • 

3970 IF jul(x)=13 THEN LOCATE 34,lx 

¡PRINT "* "¡pl»!x)¡" " 

3980 IF jul(x)=l THEN LOCATE 34,zx: 

PRINT "A 'jplt(x);" ' 

3990 zx=zx*5¡PEN 0:NEXT 

4000 SDUND 2,300,100,15,1,0 

4010 RETURN 

4020 FDR x=l TO 5¡y=l' 

4030 «HILE xOy 

4040 IF ju2(x)<ju2(y) THEN k-ju2Cy) 

:ju2(y)=ju2(x)¡ju2(x)=k:k»=p2i(y!:p 

2$(y)=p2*(x):p2í(x)=k» 

4050 y=y+!:«END 

4060 NEXT 

4070 zx=2:FDR x=l TO 5¡IF p2»(x)=CH 
R»(228) DR p2*(x)=CHRt(227) THEN LO 
CATE 2,zxlPEN 7¡PRINT ju2(x)¡p2i(x) 
ELSE LOCATE 2,zx:PEN OIPRINT ju2(x 
)¡p2*(x) 
40B0 PEN O 

4090 IF p2*(x)=CHRÍ(226) THEN LOCAT 



E l,zx*2¡PEN 7IPRINT CHR»(242):L0CA 
TE l,zxt3:PR!NT CHRÍ(243) 
4100 IF p2*(x)=CHRs(229) THEN LOCAT 
E l,zx*2: PRINT CHRtf 240) ¡LOCATE l,z 
x*3:PRINT CHRK241) 
4110 IF p2*(x)=CHR$(226) THEN LDCAT 
E l,zx+2:PRINT CHR»(246)¡LDCATE 1,Z 
x*3¡PRINT CHRI<247> 
4120 IF P 2$(x!=CHRI(227) THEN LOCAT 
E l,zx+2:PEN 7:PRINT CHR|(244):L0CA 
TE !,zx*3:PRINT CHRK245) 
4130 IF ju2(x)=ll THEN LOCATE l.zx: 
PRINT "J ";p2í(x)j" * 
4140 IF ju2(x)=12 THEN LOCATE 3,zx: 
PRINT "<¡ ";p2j(x)¡" • 
4150 IF ju2(x>=13 THEN LOCATE 3,zx¡ 
PRINT "K "¡p2«x>¡" " 
4160 IF ju2(x)=l THEN LOCATE 3,zx¡P 
RINT "A "¡p2t(x>¡" ■ 
4170 zx=zx*5:PEN OINEXT 
4180 SDUND 2,100,100.15,1,0 
4190 RETURN 

4200 REH »»»»»»»»»» 6ESTI 
ON DEL ERROR 'aeiory full' 
4210 IF ERR=7 THEN CLStl: PRINTII, 'E 
STDV LIGERAMENTE INDISPUESTO NO VO 
y EN ESTA PARTIDA Si hay algo apos 
lado, es todo tuyo" ELSE CLSIPRI 
NT "error nuiero'íERRi'en la linea" 
¡ERL.'ENO 

4220 PRINTII, "error de MEMORY FULL. 
Espera un loientito que se le han 
cruzado los cables. ." 
4230 DPENDUT "pelas. " 

4240 «RITE I9,dinl,din2,juegel,apl, 

ap2,apu,noibrel 

4250 CLOSEDUT 

4260 CLEAR 

4270 CALL &B81B 

4280 OPENIN "pelas 

4290 INPUT l9,dinl,din2,juegol,apl, 

ap2,apu,noibrel 

4300 CLOSEIN 

4310 CALL ÍBB1B - 

4320 IF juegol=l THEN juegol=2 ELSE 
juegol-1 

4330 REM »»»»»»»»»» DI8UJ 
O DE TAPETE 

4340 REM ON BREAK GOSUB 5000 
4350 REM 

4360 PAPER ÜPEN 0:CLS 

4370 IF dinl<=0 THEN MUDE 0:CLS:LOC 

ATE 5,11¡PRINT "ME PELASTE" ¡LOCATE 

4,13: PRINT'FDRASTERD !'!": LOCATE 1 , 2 

O.'ENO 

4380 IF din2<=0 THEN BODE 0:CLS:LOC 
ATE 4,ll:PRINT "TE DESPLUME" ¡LOCATE 
4,13!PRINT "FDRASTERD!!!":LDCATE 1 
,15:PRINT CHR*(229);*hoja de parra 
para taparte. . . *: LOCATE 1 ,20:END 
4390 IF nivel<>2 ANO dinl<1500 THEN 
nivel=2¡s«itch=l ELSE IF dinl>2500 
ANO s»itcb=l THEN nivel=l¡s«itch=0 
4400 «IN0D«I1,10.30.3,23:PAPERI1,3¡ 
PENI!, 4 

4410 FDR x=3 TO 23 ¡LOCATE 9,x:PRINT 
CHRi(138)¡LDCATE 31,x:PRlNT CHR$(1 
33):NEIT:FDR x=30 TO 10 STEP -ÜLOC 
ATE x,2:PRINT CHR*(140):L0CATE x,24 
IPRINT CHRKI31):NEXT:CLSI1 
4420 FDR x=l TD 23 STEP 5: LOCATE I, 
x:FOR y=l TO 8:PRINT CHR»(131);:NEX 
TILDCATE 32,x:F0R y=32 TD 40:PR1NT 
CHRK 131) ¡¡NEXT: NEXT: FOR x=l TO 25: 
LOCATE 8,x:PRINT CHR»(133):L0CATE 3 
2,x:PRINT CHR»(138):NEXT 
4430 L0CATEI1,17,20:PRINTI1,"CHIP'¡ 
LDCATEli ,2,2: PRINTII ,UPPER»(no«bref 
) 

4440 LOCATE», 17,19:PENI1,0:PRINTI1 
,Chm(226)¡CHR»(229)i¡PENH,13:PRIN 
TH,CHRJ(227);CHR$(228) 



4450 LDCATEIl,2,3:PRlNT*l,CHRt(228) 
!" "¡CHRi(227)i" "¡¡PENtl.OlPRINTIl 
,CHR»(229)¡* "¡CHR*(226):zx=2 
4460 FDR x=33 TO, 39:FDR y=zx TO zxt 
3:L0CATE x,y:PRINT CHR*(206>:NEXT:N 
EXT 

4470 zx=zx+S: IF zx=27 THEN 610 ELSE 
6DTD 4460 

4480 REM CAMBIO DE CARTAS PDR ORDEN 

AODR PARA USUARIO 

4490 FOR xl=l TD 5 

4500 vbler,2!xl)=0:vblen2*(xt)=" 

4510 NEXT 

4520 veces=0 

4530 FOR xl=l TO 5 

4540 yl=l 

4550 «HILE xlOyl 

4560 IF p2í(xl)=p2»(yl) THEN veces= 
veces* 1 
4570 yl=yl+l 
4580 VENO 
4590 NEXT 

4600 IF veces=10 THEN cartas=0:LOCA 
TE*l,2,18:PRINTil"ta»bia :":60TD 
5170 

4610 IF veces06 THEN 4710 

4620 FDR xl=l TO 5 

4630 FOR yl=xHl TO 5 

4640 IF p2$(xl)Op2$tyl) THEN IF p2 

l(yl)Op2$(yl-l) ANO p2»(yl)Op2*(y 

1+1) THEN vblen2$(yl)=p2t(yl):vb¡en 

2(yl)=ju2(yl) ELSE vblen2t(xl)=p2$( 

xl):vblen2(xl)=ju2(xl) 

4650 NEXT 

4660 NEXT 

4670 FDR xl=i TO 5 

4680 IF vb¡en2(xl)=0 THEN vblen2(xl 

> s ju2(xl):vblen2$(xl)=p2»(xl) ELSE 

vblen2txl)=0:vblen2$!xl)=" 

4690 NEXT 

4700 SOTO 5090 

4710 REM mtm CAMBIO OE CARTAS P 
DR ORDENADOR CON 2 o MAS CARTAS I6U 
«•ES PARA USU 

ario mtmtxtmmttumttttm 
ttttnnmm 

4720 FDR xl=l TO 5 

4730 vb¡en2(xl)=0:vbler,2»(xl)=" 

4740 NEXT 

4750 veces=0 

4760 REM mtt 2 - asigna las carta 

s que se queda a otras variables 

4770 FOR xl=l TD 5 

4780 IF ju2(xl)=ju2(xl*l) THEN vble 

n2<xl)=ju2(xl):vblen2*(xl)=p2s(xl>: 

vbien2(xl+l)=iu2(xlH):vblen2*(xlM 

l^síxlMÜvecessveces+l 

4790 NEXT 



4810 REM ttm» CAMBIO OE CARTAS P 
DR ORDENADOR VENDO A ESCALERA 

PARA USU 

ario nttnmmmnmtmtmtt 
un 

4820 FDR xl=l TD 5 

4B30 vblen2(xl)=0:vblen2»(xl)=" 

4840 NEXT 

4850 veces : 

4860 REM ttm 2.- asigna las carta 

s que se queda a otras variables 
4870 yl=l 

4880 FDR xl=¡ TO 5 

4890 vblen2(yl)=0 

4900 «HILE ¡u2(yl+l)-ju2(yl)=l AND 

yl<5 

4910 Vb!en2(yl)=ju2(yl):vb¡en2í(yl) 
=p2$(yl) 

4920 vblen2(yl*l)=ju2(yl+l):vblen2$ 

(yl*l)=p2$(yltl) 

4930 yl=yl*l 

4940 UENO 

4950 yl=ylil 

4960 NEXT 

4970 IF ju2(5)-ju2(l)=12 THEN vblen 
2(l)=ju2(l):vblen2$(l)=p2«(l):vblen 
2(5)=ju2(5):vblen2$(5)=p2í(5):veces 
=veces*l 

4980 REM «*« 3 - asigna O a las i 
artas que no se queda 
4990 xl=5 
5000 «HILE xl>0 

5010 IF vblen2(x!)<>0 ANO vblen2(xl 
-DOO ANO vb¡en2(xl)-vblen2(xl-l)< 
>1 THEN vb¡en2(x!-l)=0 
5020 xl=xl-l 
5030 «ENC 

5040 FOR xl=5 TO 1 STEP -1 

5050 IF vblen2(xl)<>0 THEN veces=ve 

ces»l 

5060 IF vblen2(xl)=0 AND vecesOO T 
HEN FDR yl=xl TC 1 STEP -l:vblen2(y 
l)=C:z=0:NEXT 
5070 NEXT 

5080 IF j"u2(5)-ju2(l)=!2 THEN vblen 
2( 1 ) =i u2( 1 ) : vb¡en2t( 1) =p2»( 1 ) : vblen 
2(5)=ju2(5):vb¡en2*(5)=p2«(5):vece5 
=veces*l 

5090 REM MUESTRA QUE CARTAS CAMBIAR 
5100 LDCATEI1 , 8, S:PRINTI1 , 'AVUDA' 
5110 cartas=0 
5120 FOR xl=l TO 5 
5130 IF vblen2(xl)=0 THEN LOCATE», 
5,xlt5:PRINTH,"ca«bia la'íxl 
5140 NEXT 
5!50 CALL SBB16 

5160 FOR c=l TO 6:L0CATEI1,1,:U:PR 
INTII," "¡NEXT 
5170 RETURN 
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El Abstrae es un juego de cartas para dos 
jugadores. Se juega con 24 cartas de poker (A, 
K, Q, J, 10 y 9 de cada palo). Las cartas, una 
vez barajadas, se ponen en hilera boca arriba 
y de modo que se vea cuál es cuál. Cada jugador 
toma en su turno una, dos, o tres cartas a partir de 
la que está totalmente descubierta. El objetivo es 
formar combinaciones con las cartas recogidas 
(conjuntos y escaleras). Tanto la descripción del 
juego como la forma de puntuar se explican 
detalladamente en las instrucciones de la aplicación. 

El programa comienza con la presentación del 
título (Abstrae) y el primer menú (instrucciones o 
juego). 

En la opción de instrucciones se describen en 
pantallas sucesivas las reglas del juego. Al final de 
ellas se llega a la opción de juego. En ésta aparece 
en primer lugar el menú de selección del número de 
jugadores humanos: en el caso de ser uno, juega 
contra el ordenador y en el caso de ser dos, juegan 
entre ellos sirviendo el ordenador como tablero y 
puntuación. 

Sea cual sea el número de jugadores, el ordenador 
pregunta el nombre de éstos, hecho lo cual presenta 
la pantalla de juego. 

En la parte superior aparece el nombre de cada 
jugador, junto a la tabla de puntuación y de cartas 
que posee, y en la parte inferior se muestran las 
cartas. Cuando termina la partida se dedica esta 
parte de la pantalla a la presentación del menú final, 
en el cual se da la opción de seguir jugando los 
mismos jugadores (con o sin acumulación de 
puntos), otros jugadores o finalizar. 

Este programa proporciona durante su ejecución 
toda la información necesaria para el jugador, tanto 
de reglas del juego como de utilización del 
programa. 
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10 REA 1 ABST 510 LOCATE 15, 17:PRINT" Juega "¡:IF 

RflC lurno = ( jhEN PR1NT UPPER$(jgl») E 

20 REH LSE PRINT UPPERí(jg2$) 

S2C GDSUB llgc 

30 REH — prograia basado en un jue 530 LOCATE 1,17:PRINT CHR$(18):PRIN 
go de cartas de David Parlett — T CHRÍÜ8) 

40 REH 540 turno = turno t turno2 

550 y EN0 

50 RANDOHIZE TIHE 560 REH Jugador contra ordenador 

60 H0DE 2:tinta=l:60SUB 3100 570 «HILE juegan = 1 AND naipe < 25 

70 GGSUB 3830:REK Elección del nme 580 IF turno « -i THEN 60SUB 1110 E 
ro de jugadores y el laño LSE 60SUB 1180 

80 ' 590 turno = turno t turno2 

90 «HILE opción <= 2:REH Prograia p 600 «EN0 

rincipai 610 S0SUB 2260:REH Puntuación final 

100 DIH nuiero$(6),cartas(30,2),.ten 620 GDSUB 4130:REH Fin de partida 
íios(4, 6), peso(4,6),veo(5,2), guarda 

(6),recu!2), punlosc(6,2), puntoseí 630 REH Analiza la opción final 
<<2) 640 0N opción 60SUB 4240, 4220 

110 pruera = 650 «END:REH Fin del prograia princ 

120 REH Pantalla de espera ¡ pa l («hile en la linea 90) 

130 H0DE OIINK 1,3: INK 2.18:B0RDER 660 IF opción = 3 THEN RON: REH Eipe 
1" zar de nuevo 

140 PEN 1:PAPER 2:CLS 67 o CLS 

150 LOCATE 5,13:PRINT"Barajando 6 B0 END 

690 ' 

700 REH hace una valoración de las 
cartas según cuales sean y según es 
ten colocadas 

710 REH Priiero da peso a las carta 
s 'en piraiide': de layor a lenor, 

J-Q, K-10,y A-9 
720 FOR valor = 1 T0 6 
730 REA0 pesofl,valor):peso(2, valor 
)=peso(l. valor ):peso(3, valor )=peso( 
1, valor) :peso(4,valor)=peso(l, valor 



160 REH Inicial iza valores de carta 
s para «presión 
170 RESTORE 4480 
1B0 FOR silbólo = 1 TD 6 
190 READ nuieroí(subolo) 
200 NEXT silbólo 

210 REH coloca de foria aleatoria 1 
as cartas 

220 FOR palo = 1 TO 4 
230 FOR valor = 1 T0 6 
240 busco = 
250 «HILE busco = 
260 lugar = INT(RND*23+1.S) 
270 IF cartas(lugar,l)=0 THEN carta 
s( lugar , 1 )=paIo: cartas! lugar , 2)=val 
or:busco-l 
280 «END 

290 NEXT valor:NEXT palo 

300 IF juegan=l THEN GGSUB 700:REN 

si un jugador, pesa las cartas 

310 REH Pantalla de juego 

320 INK 0,0:INK 1,26;BCRDER 0:H0DE 

2 

330 CLS:«IND0U «0,1, 80,1, 25:WIND0«» 

1, 33, 45,3,3^*1, 0:PAPER#1,1 

340 REH iipriie las cartas 

350 GDSUB 2640 

360 HDVE 5,l6:cursor=-l 

370 FDR naipe=24 T0 1 STEP -1 

3B0 tinta = 1: cursor = cursor +3:60 

SUB 3000:60SUB 2920: REH pinta cada 

cartatparte izquierda) 

390 NEXT naipe 

400 naipe=l:80SUB 2960:cursor = cur 
sor * 3:G0SU8 305C:REH pinta la par 
ti dcha. de la pmera rarta 
410 REH Iipriie los noibres de los 
jugadores 

420 LDCATE ((25-LEN!jgl$))/2)t5,6:P 
RINT UPPERí(jgl$)¡ 
430 LOCATE (<25-LEN(jg2í>)/2)*44,6: 
PRINT UPPER$(jg2t)¡ 
440 REH coiienza a jugar 
450 naipe=l:REH inicializa contador 
de cartas toiadas 
460 REH Coiienzo real del juego 
470 turno2 = -1 

480 IF «ano = 1 THEN turno = 1 ELSE 
turno = -1 

490 REH Dos jugadores 

500 «HILE juegan = 2 AND naipe < 25 



) 

740 NEXT valor 

750 REH Averigua la posición de las 
cartas del lisio nuiero 
760 FOR valor = i TO 6 
770 q=l:np=0 
780 FOR k=l TO 24 

790 IF cartas(k,2)=valor THEN guard 

a(q)=valor:q=q*l 

600 NEXT k 

810 REH Hira si puede tomar cuatro 
iguales o es iiposible 
820 FOR k=l T0 3 

830 IF guarda(fc!=(guarda(k«l)-2) TH 

EN np=l 

840 NEXT k 

850 FOR k=l T0 2 

860 IF (guarda(k)=(guarda(k+2)-5) D 
R guarda(k)=(guarda(k+2)-4)) AND NO 
T (guarda(k)=(guarda(k+2)-3>> THEN 
np=l 

870 NEXT k 

880 FOR k=l T0 3 

890 IF (guardaík)=guardaíktl)-l) AN 
np=0 THEN auiento-2: 60SUB 1470: RE 
H auientar peso 
900 NEXT k 

910 REH Sube el peso de aquellas de 
las que es posible toiar las cuatr 

o 

920 IF np=0 THEN ausento - 4:60SUB 
1470:REH auientar peso 
930 NEXT valor 
940 FOR palo=l TO 4 
950 q=l:np=0 

960 REH Averigua la posición de las 
cartas del lisio palo 
970 FOR j=l TO 24 

980 IF cartasíj,l)=palo THEN guarda 

(q)=palo:q=q+l 

990 NEXT j 



1000 REH Sube el peso de aquellas c 
on las que es posible foriar escale 
ra 

1010 FOR j=l TO 5 

1020 IF guarda(j)=(guarda(j+l)-2) T 
HEN np=I 
1030 NEXT j 
1040 FDR j=l T0 4 

1050 IF guarda(j)=(guarda(j+2)-5) 
R guarda(j)=(guarda(j+2)-4) THEN np 
=1 

1060 NEXT j 

1070 IF np=0 THEN 60SUB 1660:REH au 
■entar peso por escalera 
10B0 NEXT palo 
1090 RETURN 
1100 ' 

1110 REH coge cartas el ordenador 
1120 LOCATE 1,17:PRINT CHR*(1B):PRI 
NT CHRi( 18) : LDCATE 15,17:PRINT"Hni 
lh! .*:FOR retar = 1 T0 1000: NEXT 

1130 recojo=I:60SUB 1880:60SUB 1260 
:REH peso 

1140 GDSUB 1720:LDCATE 15,17:PRINT' 
he cogido ";recojo+l¡' cartas " 
1150 G0SUB 1880:REH Coger ias carta 
s o no 
1160 RETURN 
1170 ' 

1180 REH coge cartas el jugador 
1190 LOCATE 15,1B:PRINT 'cuantas ca 
rtas quieres? *; 

1200 IF naipe = 1 AND priiera = T 
HEN lenor = Olpriiera = I ELSE ieno 
r = 1 

1210 IF naipe < 22 THEN layor = 3 E 
LSE »ayor = 25 - naipe 
1220 GDSUB 4280:recojo = a: PRINT re 
cojo 

1230 G0SUB 1880:REH Coge las cartas 
que ha pedido 
1240 RETURN 
1250 ' 

1260 REH da peso a las cartas que p 
ueden hacer coibinac iones 
1270 G0SUB 13I0:REH 4 iguales 
¡280 GDSUB I53C:REH escalera 
1290 RETURN 
1300 ' 

1310 REH 4 iguales 
1320 FOR valor = 1 T0 6 
1330 p=0:t=0:REH Contadores de cart 
as iguales de cada jugador 
1340 FOR palo - 1 T0 4 
1350 IF teneios(palo,valor)=l THEN 
p=ptl 

1360 IF teneios(palo,valor)=-l THEN 
t=t+l 

1370 NEXT palo 

1380 IF p>=l ANO t=0 THEN auiento = 
2:G0SUB 1470:REH auientar peso 

1390 IF p>=2 AND t=0 THEN auiento = 
4:60SUB 1470:REH amentar peso 

1400 IF jf3 AND t=0 THEN auiento = 

12:6DSUB 1470:REH auientar peso 

1410 IF t>=l ANO p=0 THEN auiento = 
2:G0SUB 1470:REH amentar peso 

1420 IF t)=2 ANO p=0 THEN auiento • 
4:6DSUB 1470:REH auientar peso 

1430 IF t=3 ANO p=0 THEN auienlo ; 
12:G0SUB 1470: REH auientar peso 

1440 NEXT valor 

1450 RETURN 

1460 ' 

1470 REH amentar peso por cuatro i 



guales 

1480 FOR pl = 1 T0 4 

1490 IF teneios(pl,valor)=0 THEN pe 

so(pl,valor)=peso(pl,valor)+auiento 

1500 NEXT pl 
1510 RETURN 
1520 ' 

1530 REH escalera 

1540 FOR palo = 1 TO 4 

1550 p=0:t=0 

1560 FDR valor = 1 T0 6 

1570 IF leneiosípalo, valor )=1 THEN 

p = p ♦ 1 

1580 IF teneios(palo,valor)=-l THEN 
t = t t 1 
1590 NEXT valor 

1600 IF p>=2 ANO t=0 THEN fiOSUB 166 

0:REH amentar peso 

1610 IF t)=2 AND p=0 THEN 60SUB 16 

60: REH amentar peso 

1620 IF l>=4 ANO p=0 THEN 60SUB 16 

60: REH amentar peso 

1630 NEXT palo 

1640 RETURN 

1650 ' 

1660 REH amentar peso por escalera 
167C FOR nuiero=l T0 6 
1680 IF teneios(palo,nuiero)=0 THEN 
pesoí pa 1 o , nuier o ) =pesoí pal o , nuie ro 
H2 

1690 NEXT nuiero 
1700 RETURN 
1710 ' 

1720 REH decide cuantas escoge el o 
rdenador 

1730 FOR k*0 T0 5 

1740 FOR jfl T0 2 

1750 veo(k,j)=cartas(naipetk,j) 

1760 NEXT j:NEXT k 

1770 REH Análisis de la jugada 

1780 peso5=peso(veo(0,l),veo(0,2))t 

pesoíveof 1, 1 ) , veo( 1 ,2) ttpesoí veo(5, 

l),veo(5,2)) 

ngOpesox'pesotveoO.D.veoO^Dt 
peso(veo(4,l),veo(4,2)) 

1800 pesos2=peso(veo(0,l),veo(0,2)) 
+peso(veo(4,l),veo(4,2)) 
1810 pesox2=peso(veo( 1,1), veo( 1,2)) 
+peso(veo(3,l),veo(3,2)) 
1 820 pesosl=peso( veo(3, 1 ) , veo( 3 , 2) ) 
1830pesoxl=peso(veo(0,l),veo(0,2)) 
♦peso(veo(l,l),veoll,2)) 
1840 IF peso5-pe5ox>=pesosl-pesoxl 
ANO pesos-pesox>=pesos2-pesox2 THEN 
recojo=2 ELSE IF pesos2-pesox2>=pe 
sosl-pesoxl THEN recojo=l ELSE reco 
jo=0:REH coger 3 o 2 o 1 cartas 

1B50 IF (naipe t recojo) > 25 THEN 
recojo = 25 - naipe 
1860 RETURN 
1870 ' 

1880 REH coger cartas 
1B90 «HILE recojo >= 1 
1900 palo=cartas(naipe,l) 
1910 valor*carlas(naipe,2) 
1920 teneios(palo,valor)-tumo 
1930 G0SU8 2020: REH Visualiza en el 
•arcador la carta cogida y la borr 
a de la lesa 

1940 GDSUB 2370: REH Actualiza el ia 

rcador de puntuación 

1950 IF juegan = 1 THEN GDSUB 2130 

1960 naipe=naipe ♦ 1 

1970 recojo = recojo - 1 

1960 IF naipe < 25 THEN 60SUB 2960: 



cursor = cursor + 3: B0SU8 3050: PLOT 

r -i,o:hover o,-75:plotr o,o:hover 

1,75:REH Pinta parte derecha de la 
nueva carta 
1990 UEND 
2000 RETURN 
2010 ' 

2020 REH Visualiza y borra 
2030 IF turno = 1 THEN posicx = 5 E 
LSE posicx = 42 

2040 LOCATE posicx t l»cartas(naipe 
,21,7 + cartas(naipe,l):PRINT nuier 
ot(cartas(naipe,2)) 
2050 MOVER 0,-75:tinta = 0:G0SUB 29 
60 

2060 W0VER -24 , -75: BOSUB 2920 
2070 PE» 

2080 6DSUB 3050: cursor = cursor - 3 
¡60SUB 3000: cursor = cursor - 3 
2090 tinta = UPEN 1 
2100 HOVER -24,0 
2110 RETURN 
2120 ' 

2130 REK pesa escaleras 
2140 aa = 0: salgo - O 
2150 UHILE valor - aa O 1 ANO salg 
o = 

2160 IF teneios(palo,v»lor-l-aa)=tu 
mo THEN aa=aa+l ELSE salgo = 1 
2170 UEND 

21B0 IF salgo O THEN peso! palo, v 
alor-l-aa)=peso(palo,valor-l-aa)+2t 
(aa*l) 

2190 bb=0:salgo = 
2200 VKILE valor ♦ bb O 6 AND salg 
o = 

2210 IF teneios(palo,valor+l+bb)=tu 
rno THEN bb=bb«l ELSE salgo = 1 
2220 UEND 

2230 IF salgo O THEN peso(palo,v 
alortl*bb)=peso(palo,valor+l+bb)*2* 

IbbM) 
2240 RETURN 

2250 ' 

2260 REH calcula puntuación de'mil 
iva 

2270 nuncart = 
2280 FDR nu»ero=l TO 6 
2290 FDR palo=l T0 4 
2300 IF tene»os(palo,nuiero)=-l THE 
N nuicart = nuncart * 1 
2310 NEXT: NEXT 

2320 total0=total0+recu(0)í.(24-nuic 
art) 

2330 total2=total2treeu(2)Jnuicart 

2340 LOCATE 23,15:PRINT recu(2.Unui 
cart:L0CÍTE 31,15:PRINT USIN6 *MM 
I" ítotal2: LOCATE 60,15:PRINT recu(0 
)*(24-nuicart):L0CATE 69,15:PRINT ü 
SING 'IIIH'itotalO 
2350 RETURN 
2360 

2370 REH actualiza la puntuación pa 
re ¡al 

2380 conj = 
2390 F0R palos = 1 TD 4 
2400 IF tene§o5(palos,valor)=tumo 
THEN conj = conj + 1 
2410 NEXT 

2420 IF conj = 4 THEN puntosdvalor 
,turno+l) = 8:recudurno + 1) = rec 
udurno ♦ 1) + 6 

2430 IF conj = 3 THEN puntoscfvalor 
.turno+l) = 2:recudumo + 1) = rec 
u( turno ♦ 1) + 2 
2440 esc = 



2450 FDR nui = 1 TD 6 
2460 IF teneioslpalo.nui) = turno T 
HEN esc = esc ♦ 1 ELSE 60SUB 2560: R 
EN Puntúa escalera 
2470 NEXT 
2480 G0SUB 2560 

2490 REH Iipriie los nuevos resulta 
dos 

2500 IF tumo = -1 THEN ong = 42:o 
rigl = 72 ELSE orig = Slorígl = 34 
2510 LOCATE orig ♦ 4lvalor,13:PRlNT 
puntoscfvalor, turno + 1) 
2520 LOCATE origl ,7 ♦ palo:PRINT US 
ING *»r:puntose(palo,lumo + I) 
2530 LOCATE origl, 13:PRINT USING "I 
i';recu(turno * Di 
2540 RETURN 
2550 

2560 REH Puntúa escaleras 
2570 IF esc = 6 THEN recudurno ♦ 1 
) = recudurno + 1) + 12 - puntoset 
palo, turno * l):puntose(palo,turno 
♦ 1! = 12 

2580 IF esc = 5 THEN recudurno + 1 
) = recudurno + l > + 6 - puntóse 
(palo, turno ♦ l):puntose(palc,tum 
o + 1) - 6 

2590 IF esc = 4 THEN recudurno + 1 
) = recudurno + 1) ♦ 4 - puntoseíp 
alo, turno » l):puntose(palo, turno 
t 1) = 4 

2600 IF esc = 3 THEN recudurno ♦ 1 
) = recudurno ♦ 1) ♦ 3 - puntoset p 
alo, turno ♦ 1) ¡puntoset pal o, turno 
+ 1) = 3 
2610 esc = 
2620 RETURN 
2630 ' 

2640 REH Pinta el recuadro de infor 
■ación 

2650 LOCATE 33,6:PRINT"Plos. 'IL0CAT 
E 7t,6:PRlNT*Ptos." 
2660 F0R j=0 T0 3 

2670 LOCATE 6,8+j:PRINT CHR$(226*j> 
¡LOCATE 43,8tj:PRINT CHRi(226*j) 

2680 NEXT j 

2690 LOCATE 4,13:PRINf'Ptos "¡LDCAT 
E 41,13:PRINT , Ptos." 
2700 NOVE 22B,158:DRA«R 56,0,1:DRAU 
R 0,20,l:DRA«R -56,0,l:DRAyR 0,-20, 
1 

2710 NOVE S32,158:DRAUR 56,0,l:DfiAU 
R 0.20. l:DRAWR -56,0,l:DRAUR 0,-20, 
1 

2720 LOCATE 12,15:PRINT*RESULTAD0: 
";0:L0CATE 49,15:PRINT'RESULTAD0: " 
¡0:L0CATE 31,15:PRINT USING "#***»- 
¡total2: LOCATE 69,15:PRINT USING 'I 
mi' i total 

'2730 NOVE 304,152:DRAyR 0,174,l:H0V 
E 36,220:DRA«R 212,0, 1:0RA«R 0,72,1 
¡NOVE 332,220:0RAW! 220,fi,l:DRAVR 
,72,1 

2740 NOVE 256,190:DRAMR 28,0,1:DRA« 
R 0,20,l:DRAUR -2B,0,l:DRAUR 0,-20, 
1 

2750 NOVE 560,190:DRAiR 28,0,l:DRflU 
R 0,20,1:ORAUR -28,0,i:DRAyR 0,-20, 
1 

2760 CLS »l:PRINT#l,' ABSTRAC" 
2770 FOR origen = 10 T0 47 STEP 37 
2780 FDR linea = 8 T0 11 
2790 FOR posición = Tü 20 STEP 4 
2800 LOCATE origen*posicion,linea:P 
RINT'-'i 

2810 NEXT:NEXT:NEXT:REH pinta los h 



uecos 

2820 FOR lineas = 8 TD 11 
2830 LOCATE 34,lineas:PRINT 0¡ 
2840 LOCATE 72,lineas:PRINT 0¡ 
2850 NEXT 

2860 FOR colunias = 9 TD 29 STEP 4 
2B70 LOCATE coIutnas,13:PRINT 0¡:L0 
CATE columas ♦ 37,13:PRINT 0¡ 
2880 NEXT 

2890 LOCATE 34,13¡PRINT USING '»»'! 
OüLOCATE 72,13:PR1NT USING -*#"i0í 



/ 



2S0Ü RETURN 
2910 ' 

2920 REH Pinta o borra lado izquier 
do de una carta 

2930 0RAUR -5,5,tinta:0RAVR 0,65, ti 
ntalORAUR 5,5,tinta:DRA«R 24,0,tint 
a: N0VER -24,-75¡0RAUR 24,0, tinta 
2940 RETURN 
2950 ' 

2960 REH Pinta o borra lado derecho 
de la carta descubierta 
2970 GRAVR n.CtintaiDRAUR 5,5,tin 
ta:DRAUR 0,65,tinta:DRAUR -5,5,tint 
a:DRAUR -17,0, tinta 
2980 RETURN 
2990 ' 

3000 REH Pinta o borra palo y nuier 
o de la parte izq. 
3010 LOCATE cursor-l,21:PRINT nuier 
o*(cartas(naipe,2)) 
3020 LOCATE cursor, 23: PR1NT CHRNca 
rtasfnaipe.l) + 225) 
3030 RETURN 
3040 ' 

3050 REN Pinta o borra palo y nuier 
o de la carta descubierta (parte de 
ha.) \ 

3060 LOCATE cursor, 2l:PRÍNT CHR*(ca 
rtaslnaipe.l) + 225) 
3070 LOCATE cursor - 1,23:PRINT nui 
ero$(cartas(naipe,2)) 
3080 RETURN 
3090 / 
3100 REN pinta rVtulo 
3110 B0R0ER \ 
3120 WIND0y,t0,l,fy),12,25:yiNDDWJIL 

,1,80,1,11 \ 

3130 INK 0,0:1^1, 26:PAPER OIPEN 1 

¡PAPER#1,0:PENI1,1:CLS:CLS#1 

3140 FOR lineas = 1 T0 10 

3150 PRINTtl:PRINTtl,SPCÜl> 

3160 FOR columas = 1 T0 55 

3170 READ caracter:PRINT#l,CHR*(car 

acter); 

3180 NEXT columas:NEXT lineas\ 
3190 REH ienu 

3200 LOCATE 31,5:PRINT' I . Instruc 
ciones' 

3210 LOCATE 31,9:PRINT" J... Juego' 

3220 »enor = 25:§ayor = 26:G0SUB 42 
80 

3230 IF a»='I" THEN G0SUB 3260 
3240 RETURN 
3250 ' 

3260 REH escribe instrucciones 
3270 CLS 

3280 PRINHPRINT 

3290 PRINT" El Abstrae es un ju 
ego de cartas para dos jugadores cr 
eado por Oavid Par-" 
3300 PRINT" lett. Se juega con 24 ca 
rtas de poker: A, K, Q, J, 10 y 9 d 
e cada palo." 

3310 PRINT" Después de barajar, 



las 24 cartas apare en una sobre o 
Ira en una hilera," 
3220 PRINT'de iodo que puedes ver t 
odas las cartas." 

3330 PRINT* Cada jugador, en su 
tumo, toia una, dos o tres cartas 
seguidas a partir" 
3340 PRINT'de la que esta tolalient 
e descubierta; en la priiera jugada 
de la partida el' 

3350 PRINT'jugador 'iano' puede 'pa 
sar sin coger cartas Se sigue ju 
gando alternativa-' 
3360 PRINT'iente hasta que no quede 
n cartas " 

3370 G0SUB 3780¡REH para continuar 

33B0 PRINT:PRINT:PRINT 

3390 PRINT" El D8JETIV0 es toia 

r cartas que forien COMBINACIONES P 

UNTUABLES:" 

3400 PRINT 

3410 PRINT" ESCALERAS: 

E TRES HAS CARTAS SEGUIDAS DE UN 
PALD" 

3420 PRINT" CONJUNTOS: D 

E TRES D HAS CARTAS DEL HISHO VALOR 

H 

3430 G0SUB 3780! REH para continuar 
3440 PRINT 

3450 PRINT" La PUNTUACION de ca 
da combinación es:" 



ESCALERA 
12 puntos" 

6 puntos" 

4 puntos' 

3 puntos* 

CONJUNTO! 
8 puntos" 

2 puntos' 




de 



de 



de 



de 



3460 PRINT 
3470 PRINT" 

SEIS cartas, 
3480 PRINT' 

CINCO cartas, 
3490 PRINT' 

CUATRO cartas, 
3500 PRINT" 

TRES cartas, 
3510 PRINT 
3520 PRINT" 

CUATRO cartas, 
3530 PRINT" 

TRES cartas, 
3540 PRINT 

3550 PRINT" La lisia carta pued 
e puntuar en dos coibinac iones " 
3560 60SUB 37B0:REH para continuar 

3570 print:print:print:print:print¡ 

PRINT 

3580 PRINT" Para obtener la pun 
tuacion final se lultiphcan los pu 
ntos obtenidos en " 
3590 PRINT" las coibinac iones por el 
nuiero de cartas que ha cogido el 
adversario." 

3600 G0SUB 37B0:REN para continuar 
3610 PRINT" Ejeiplo: " 

3620 PRINTíPRINT CHR*(22)¡CHR$(1)¡: 
HEN Hodo transparente 
3630 HDVE 304,20:DRAUR 0,190,l:HOVE 

36,92:0RAVR 2t2,0,l:DRAUft 0,68,l:H 
OVE 332,92:DRAyR 220,0, 1:DRAVR 0,68 

,1 \ 

3640 PRINT SPC(33)"Plos."¡SPC(32)"P 
tos* \ 
3650 PRINT 

3660 PRINT SPC(5)CHR*(226)¡" 

K « - - - 3 

(226) ;* - J 10 
3* 

3670 PRINT SPC(5)CHR$(227)¡" 
- - j - - 

(227) 5" - K Q - 10 
0" 

3680 PRINT SPC(5)CHRt(228)¡* 
I K - - - - 



A 

*¡CHR» 
9 

A 

" ; CHRt 

9 

A 

"¡CHR$ 
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sene oro 



- - Q J 10 9 



(228), • 
4' 

3690 PRINT SPC(5)CHRí(229)j 



10 9 

(229);* - K Q - - - 
0* 

3700 PRINT 

3710 PRINT SPC(5)' 8 
Ptos 2 

2 2 Ptos.' 
3720 PRINT 

3730 PRINT" TOTAL: (8+3+3)PUNTDS* 
13CARTAS=182 TDTAL: (2+2*2+4+3) PON 
T0S*llCARTflS=U3* 
3740 PRINT 

3750 PRINT CHR$(22);CHR*(0)¡:REM De 
sactiva iodo transparente 
3760 GDSUB 37B0:REH para continuar 
3770 RETURN 

37B0 LOCATE 25, 14:PR!NT"PULSA UNA T 

ECLA PARA CONTINUAR* 

3790 UHILE INKEYí = "¡HENO 

3800 CLS 
SiO RETURN 

X) ' 

, REA Selecciona el niñero de ju 
idores y el taño 
40 CLS 

» LOCATE 27,7:PRINT"CUANT0S JU6A 
ES? (i o 21" 

) nenor * luayor = 2:60SUB 4280 
gan « a 

IF juegan = 1 THEN 50SUB 3930: 
N 

1S 

... iano = 1: LOCATE 15,7:PRINT"N0H 
BRE OEL JUGADOR 1 (MANO)? "¡:6DSUB 

1020:jgl$ = noibreS:CLS 
3900 LOCATE 15,7:PRINT'N0HBRE DEL J 
U6AD0R 2? *¡:60SUB 4020: jg2 

f = noibreS 
3910 RETURN 
3920 ' 

3930 REH Un jugador 
3940 CLS 

3950 LOCATE 27,5:PRINT" 1 - TI) ERES 
MANO' 



A 

■iCHRI 



3960 LOCATE 27,9:PRINT' 2 - EL OROE 
NADDR ES NANO' 

3970 lenor = lliayor = 2:G0SUB 4280 
:iano = a 

3980 CLS 

3990 LOCATE 15,7:PRINT* CONO T 
E LLANAS? ";:G0SUB 4020: jgl 

* = noibreí:jg2» = "ORDENAOOR* 
4000 RETURN 
4010 ' 

4020 REH Recoje noibre 
, 4030 LOCATE 25,14:PRINT'HAnH0: 10 
CARACTERES V <ENTER>*¡:LOCATE 45,7 

4040 aS = ":nc«bre$ = " 

4050 «HILE at = ":a* = INKEVf :UEND 

4060 «HILE ASC(a$) O 13 

4070 IF ASC(at) = 127 THEN IF no.br 

e$ O " THEN PRINT CW¡*(8)¡CHR*(16 

)i:noibre» = LEFT$(noibre»,LEN(noib 

reí) - 1) ELSE PRINT CHR*(7); ELSE 

PRINT a*¡:noibre* = noibreS + at 

4080 IF LENÍnotóreí) > 10 THEN noib 

re» = "¡LOCATE 45,7:PRINT CHR$(18) 

|CHR$(7)! 

4090 aí = ":«HILE at « ":at = M 

EVt:üEND 

4100 «END 

4110 RETURN 

4120 ' 

4130 REN Fin de la partida 

4140 LOCATE 1,17:PRINT CHRt(18):PRI 

NT CHRt(lB) 

4150 LOCATE S, 20: PRINT* l . Nueva 
partida entre los aisios jugadores 
( acumulando los puntos)' 
4160 PRINT SPC(4)'2 Nueva parti 
da entre los lisios jugadores (sin 
acuiular puntos)' 

4170 PRINT SPC(4)*3 ... Nueva parti 

da entre dos nuevos jugadores' 

4180 PRINT SPC(4)'4 ... Fin' 

4190 tenor = lüayor = 4:G0SUB 4280 

¡opción = t 

4200 RETURN 

4210 ' 



4220 REN Continúan jugando los «isi 
os 

4230 totalO = 0¡totaI2 ■ 
4240 ERASE niñero*, cartas, teneios 
i peso, veo, guarda, recu, puntóse, 
puntóse 

4250 IF iano = 1 THEN laño = 2 ELSE 
taño =1 
4260 RETURN 
4270 ' 

4280 REN Lectura del teclado 

4290 REH Devuelve letra layuscula ( 

at) o nuiero (a) para los lenus 

4300 «HILE INKEYtO"":«END:REH ülp 

ia el buffer de teclado 

4310 at = " 

4320 «HILE at = " 

4330 at = WPERí(INKEY$):IF at <> ■ 

' THEN IF ASC(at)-48 < lenor OR ASC 

(at»-48 > iayor THEN at = "¡PRINT 

CHR«(7)¡ ELSE a = ASC(at) - 48 

4340 «END 

4350 RETURN 

4360 ' 

4370 REH Caracteres para el noibre 

del juego (A6STRAC) 

4380 DATA 32,214,143,143,143,215,32 

,32,143,143,143,143,143,143,215,32, 

214,143,143,143,143,143,215,32,143, 

143,143,143,143,143,143,32,143,143, 

143,143,143,143,215,32,32,214,143,1 

43,143,215,32,32,214,143,143,143,14 

3,143,215 

4390 DATA 214,143,143,143,143,143,2 
15,32,143,143,143,143,143,143,143,3 
2, 143, 143, 143, 143, 143, 143, 143,32, 14 
3, 143, 143, 143, 143, 143, 143, 32, 143, 14 
3, 143, 143, 143, 143, 143,32,214, 143,14 
3,143,143,143,215,32,143,143,143,14 
3,143,143,143 

4400 DATA 143,143,212,32,213,143,14 
3,32,143,143,32,32,32,143,143,32,14 
3,143,32,32,32,143,143,32,32,32,143 
,143,143,32,32,32,143,143.32,32,32, 
143,143,32,143,143,212,32,213,143,1 
43,32,143,143,32,32,32,213,143 



4410 DATA 143,143,32,32,32,143,143, 

32,143,143,32,32,214,143,143,32,143 

,143,32,32,32,32,32,32,32,32,143,14 

3,143,32,32,32,143,143,32,32,214,14 

3, 143,32,143, 143,32,32,32, 143, 143,3 

2,143,143,32,32,32,32,32 

4420 DATA 143,143,143,143,143,143,1 

43,32,143,143,143,143,143,143,212,3 

2,143,143,143,143,143,143,215,32,32 

,32,143,143,143,32,32,32,143,143,14 

3,143,143,143,212,32,143,143,143,14 

3,143,143,143,32,143,143,32,32,32,3 

2,32 

4430 DATA 143,143,143,143,143,143,1 
43,32, 143, 143, 143, 143, 143, 143,215,3 
2,213, 143, 143, 143, 143, 143, 143,32,32 
,32,143,143,143,32,32,32,143,143,14 
3,143,143,143,215,32,143,143,143,14 
3, 143, 143, 143,32, 143, 143,32,32,32,3 
2,32 

4440 DATA 143,143,32,32,32,143,143, 

32,143,143,32,32,213,143,143,32,32, 

32,32,32,32,143,143,32,32,32,143,14 

3, 143,32,32,32, 143, 143,32,32,213,14 

3,143,32,143,143,32,32,32,143,143,3 

2,143,143,32,32,32,32,32 

4450 DATA 143,143,32,32,32,143,143, 

32,143,143,32,32,32,143,143,32,143, 

143,32,32,32,143,143,32,32,32,143,1 

43,143,32,32,32,143,143,32,32,32,14 

3,143,32,143,143,32,32,32,143,143,3 

2,143,143,32,32,32,214,143 

4460 DATA 143,143,32,32,32,143,143, 

32,143,143,143,143,143,143,143,32,1 

43,143,143,143,143,143,143,32,32,32 

,143,143,143,32,32,32,143,143,32,32 

, 32, 143, 143,32, 143, 143,32,32,32, 143 

, 143,32,143, 143, 143, 143, 143, 143, 143 

4470 DATA 143,143,32,32,32,143,143, 

32,143,143,143,143,143,143,212,32,2 

13,143,143,143,143,143,212,32,32,32 

, 143, 143, 143,32,32, 32, 143, 143, 32, 32 

,32,143,143,32,143,143,32,32,32,143 

, 143,32,213, 143,143, 143, 143, 143,212 

44B0 DATA " A',' K',* QV J','10', 

* 9' 

4490 DATA 0,5,15,15,5,0 



Bloques del programe 

LÍNEAS DESCRIPCIÓN 

1 0-70 I nicializacion. 

80-680 Bloque principal, 

690-1090 Subrutino de estudio inicial de los 

cortas por parte del ordenodor. 
1 100-1 160 Coge cartas el ordenador. 
1170-1240 Coge cartas un jugador humano. 
1250-1700 Do peso a (os cartas a medido 

que se hacen las jugados, 
1710-1860 El ordenador decide el número de 

cartas que cofe. 
1870-2110 Visuolizoción de la jugada (pone 

en el marcador y borro de lo 

mesa la carta cogido). 
2120-2240 Valora la contigüidad d.e las 

cartas, para formar escoleras, 
2250-2350 Puntuación de la partido {Total). 
2360-2540 Puntuación parcial en los 

marcadores. 
2550-2620 Visualiza puntos de escoteras. 
2630-2900 Pinta el marcador superior. 
2910-3080 Subrutinos paro pintar o borrar 

los cortos. 

3090-3240 Pinta el título y el primer menú. 

3250-3810 Instrucciones, 

3820-3910 Menú de elección del número de 
jugadores humanos. 

3920-4000 Menú para elegir ei mono (caso 
de un jugador). 

4010-41 10 Subrutiria para recoger nombre. 

4120-4200 Menú finaL 

4210-4260 Iniciaiiza los variables necesarias 
paro seguir los mismos jugadores. 
S¡ se entra por 4210, los puntos 
de todos las partidas no se 
acumulan. Por \a 423D, sí. 

4270-4350 Recoge opción para yh menú. 

4360-4490 Datos. 
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lisia de variables 

TINTA Color pora los DRAW ¡o 1 

pinta, a O borra). 

OPCIÓN Opción escogido en menú 

final. 

NÚMEROS Número paro coda carta 

vtsuailzoda. 
CARTAS Matriz con los cortas 

barajados. 

TENEMOS Para Cada carta, indica 

quién la ha cogido: 

1: Jugador 2 o 
ordenador, 

1; Jugador 1. 

O: No cogida 

todavía. 

PESO Controla la importancia de 

cager una carta, 

VEO Matriz de las cortas que 

estudia e! ordenador cuande 
le taca jugar. 

GUARDA Almacena eí puesto de cada 

carta que estudio durante la 
valoración inicial. 



RECU 

PUNTOSC 

PUNTOSE 

PRIMERA 

PALO, VALOR 
JUEGAN 

CURSOR 
NAIPE 

MENOR; MAYOR 
TURNO 



MANO 



Puntuación parcial de coda 
jugador. 

Matriz de puntuaciones por 
conjuntos. 

Motriz de puntuaciones por 
escaleras. 

Señal de primera jugada (a 
cero}. 

Palo y valor de cada carto. 
Numera de jugadores 
humanos. 

Posición x para LOCATE al 
imprimir o borror el interior 
de una carta. 

Lleva el numera de la carta 
que toca coger. 
Valares límites para la 
subrutina de lectura de un 
carácter. 

Indica a quién toco jugar en 
un momento determinado: 

— T; Jugador 2 u 
ordenador. 

1 : Jugador 1 . 
Indica quién empieza la 
partida. 
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Zynaps, nuevo 
programa de 
Hewson, nos de- 
vuelve a los tiempos 
dorados de los viejos 
arcades. 

¡Matar marcianos vuelve a 
estar de moda! 
Nosotros cada vez te lo 
ponemos mucho más fác 
descubriéndote los misterios y coló 
cando en tu mano todas las vidas infi 
nitas que necesitas para triunfar. 



¡Ya está a la venta! 




CUANDO TERMINE DELI 
SABRA MANEJAR ET 



Maneiar el AMSTfiAD PC 1512 
es muy sencillo 

Basta mover la flecha mediante el ral» 
y elegu la opción que usted desea 
Asi de SIMPLE 
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VEA el contenido de su archivo El programa GEM 
(suministrado con el equipo! le muestra las carpetas 
que contienen los documentos que necesita en su 
trabaio 




SELECCIONE ei grupo de documei 
que usted va a trabajar Lleve 'a .echa 
peta elegida y PULSE el botón del rSon 
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MESA DE TRABAJO 

Ante usted aparecen, cuando io precise ios ele- 
mentos necesarios para reato las rutinas dianas 
agenda calculadora calendario, reloi. block de no- 
las. 



FICHEROS 

Todos los datos que usted precisa, ciasihcados en 
el orden que haya establecido y dispuestos para su 
uso, cuando tos necesite. 



Los programas de GEM le laolitar el disen sete 
Clonando, mediante el ratón las herrarme os nr 
sanas para cada caso 
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CONTABILIDADES 

La puesta al día de los asientos contables de su ac- 
tividad o su negocio es posible con la facilidad que 
le proporcionara disponer de! programa especifico 



PREVISIONES FINANCIERAS 

Realice sus previsiones económicas mediante la uti- 
lización de una Hoja de Cálculo electrónica Estima- 
ciones, estadísticas, presupuestos. . serán efectua- 
dos con rapidez y máxima eficacia. 




GRAFICOS 



Traslade a gráficos profesionales el ie r - "ado de su 
actividad o su negocio. Ei resumen de SUS datos ne- 
cesita este complemento tdeat 




PARA HAS INFORMACION RUEGO: 
O ENVIO DOCUMENTACION POR CORREO 
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E LEER ESTE ANUNCIO, 
ESTE ORDENADOR». 
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CONSULTE el documento elegido estudiando y 
pensando las modificaciones que quiere realizar 




TRABAJE comunicándose con el ordenador en 
castellano mediante la acción del ratón y el teclado 
introduciendo los datos que necesite 



IR DEL PROGRAMA 
ECESITE. 




J5ÜL 



GEM WRITE 
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PROCESADOR DE TEXTOS 

KOTbinando la acción del ratón con la introducción 
p datos medíanle el teclado, puede resolver sus 
presentaciones de escritos, documentos, cartas 





YA LO SABE. 

ASI SU NEGOCIO NO SE LE ESCAPARA 
DE LAS MANOS. 

tfetog«xl»«. 'wagona no T» 3251058 0601Í, Baro*™ DMga™.- w Canarias C< Be.na«Jc * la Tono 6 1 B Tal ?5 1 1 33 35007 las PalnViSdc GranCaror* 



ITUI 



Hll ■ 




Pasamos revista a 
uno de los grandes 
programas de esa 
historia llamada 
PC, se trata de 
Symphony, uno de 
los más potentes y 
completos paquetes 
integrados que hoy 
se ofrecen en el 
mercado. 



Sym 

Feo. Javier Barceló Taboada 
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os ordenadores personales 
han ido invadiendo las 
oficinas, primero poco a 
poco, y luego aumentando 
la velocidad, hasta llegar al 
crecimiento actual. Los 
programadores y demás 
operadores de ordenadores han 
pasado de ser unos tipos raros 
que de manera extraña lograban 
que una inmensa máquina les 
proporcione montones de listados, 
a ser los hijos de cualquier vecino. 
Los lenguajes se han hecho más 
abiertos, y los programas se han 
simplificado hasta el punto de que 
una mayoría de usuarios finales de 
ordenadores no tienen ni la más 
remota idea de qué es un programa. 

Pero no todo el software ha ido 
enfocado a esos usuarios finales. 
A la vez, muchos profesionales se 
han ido metiendo, no con 
aspiraciones de programar sino de 
«manejar» un ordenador de 
manera lo más efectiva posible. 
Para ellos ha nacido un software, 
más o menos complicado de 
manejar, con microlenguajes de 
programación, 
capaces de realizar 
las más diversas 
tareas. Dentro de 
este tipo están los 
paquetes integrados. 

Y dentro de 
éstos, Symphony es 
uno de los más 
famosos. 

Realizado por los 
autores de la hoja de cálculo 
LOTUS 1-2-3, un auténtico 
estándar en programas de este 
tipo, su aparición ha sido seguida 
con gran expectación, aunque los 
resultados no han levantado el 
entusiasmo de su predecesora. 

Symphony, como paquete 
integrado, es una hoja de cálculo, 
un procesador de textos, una base 
de datos, un paquete de 
comunicaciones y un programa de 
gráficos. Es integrado porque 
todos los programas comparten y 
actualizan la información de los 
ficheros. Y es difícil de manejar 
precisamente porque hace todo eso 



Cómo funciona 

Al cargar el programa aparece 
una pantalla que resultará familar 
a usuarios de hojas de cálculo. La 
típica disposición en filas y 
columnas, y dos líneas superiores 
para menús y mensajes. Toda la 
aplicación gira en torno a esta 
pantalla, dado que hasta el 



procesador de textos la usa. De 
hecho, un texto aquí no es más 
que una hoja de cálculo rellena de 
caracteres alfanuméricos. Aparte 
de esta pantalla, Symphony 
permite abrir ventanas auxiliares 
en la pantalla, que pueden 
contener información de distintos 
entornos de la aplicación. El uso 
de las ventanas es imprescindible 
para integrar los distintos 
programas. 

Las funciones de todos los 
programas se seleccionan a través 
de menús que se activan con 
distintas combinaciones de teclas 
de función. 

Y algo que a lo mejor 
sorprende a muchos. Los 512 Kb 
de memoria RAM del Amstrad 
PC, si bien permiten funcionar 
aceptablemente bien, no son 
demasiados para Symphony. Este 
programa, que teóricamente 
soporta una hoja de cálculo con 
hasta dos millones de celdas, 
resulta un poco derrochón de 
RAM y ni con mucho se puede 
alcanzar ese tamaño. No obstante, 



Grafitos, base de datos, 
tomunitadones, hoja de fáltalo y 
procesador de texlos todo ello 
integrado en an solo programa 



si necesita realizar cálculos de ese 
tamaño a lo mejor se ha 
equivocado de ordenador y lo que 
necesita es un CRAY... 



La hoja de cálculo 

Es la parte más importante del 
programa. Para los usuarios de 
LOTUS 1-2-3, funciona de 
manera similar, aunque es más 
grande y potente, y dispone de 
más comandos. 

Al igual que en otras hojas, es 
posible recorrer toda la superficie 
de trabajo de celda en celda y de 
pantalla en pantalla. Pero dado el 
tamaño posible de la misma, en 
cuanto la hoja sea un poco grande 
se hace necesario dar nombres a 
determinadas celdas y moverse a 
través de éstos. 



Mundo del 



Proceso de textos 

Dentro de la pantalla principal, 
al activar el proceso de textos 



aparece en la línea de estado la 
palabra DOC, que indica que se 
está creando un documento. La 
pantalla cambia a una zona en 
blanco, donde se puede empezar a 
teclear texto, con una línea 
superior de formato y otra que 
indica las funciones vigentes y la 
posición en la que se encuentra el 
cursor. 

Posee las habituales funciones 
de edición, justificación, avance 
automático de línea, reformateo 
de párrafos y desplazamiento de 
texto, así como 
búsqueda/sustitución. 

Con bastante práctica se pueden 
lograr combinaciones tan 
atrayentes como tener varias 
ventanas, cada una con el texto de 
un fichero, y mover bloques de 
uno a otro fichero. 

La ventaja de la 
integración dentro 
del proceso de 
textos es que se 
pueden incluir datos 
de ficheros de hojas 
de cálculo sin 
necesidad de 
teclearlos, y que si 
estos datos se 
alteran a través de la hoja, 
quedan modificados también en el 
documento. Una opción 
francamente interesante. 

Y otra opción importante es su 
capacidad para nombrar, grabar y 
posteriormente incluir en otros 
documentos, párrafos sueltos. 
Además, mediante funciones 
macros se pueden almacenar 
frases para utilizarlas de la misma 
forma. Además, se pueden dar 
nombres a líneas, de manera que 
el movimiento por el texto sea 
más rápido. 

Comunicaciones 

Symphony es capaz de realizar 
de manera efectiva cualquier tipo 
de comunicación asincrona. Los 
datos recibidos de esta manera 
son almacenados bien en una hoja 
de cálculo, o bien en una hoja de 
texto tipo DOC. 

El programa dispone de 
funciones de marcado automático, 
acceso automático al ordenador 
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con el que se comunica y 
contestación automática. 

Los distintos parámetros de 
cada transmisión se pueden 
almacenar en una hoja de ajustes, 
donde irán número de teléfono, 
códigos de acceso al ordenador 
conectado y tipo de protocolo. Se 
pueden tener tantas hojas como 
distintas conexiones se hagan, y 
activarlas de manera sencilla. 



Bases de datos 

Simphony también puede 
mantener una base de datos. La 
manera de trabajar con ella, al 
principio resulta un poco 
complicada, aunque con el uso se 
revela cómoda y potente. 

Tanto para crear el diseño del 
fichero como para añadir datos al 




fichero, hay que hacerlo a través 
del formato llamado FORM, 
mientras que para operaciones 
como la búsqueda, clasificación, 
extracción de datos, etc., se 
tiene que ir al formato de hoja 
(SHEET). 

Posee características avanzadas 
como la comprobación de los 
datos introducidos, 
establecimiento de un formato de 
entrada fijo y localización de 
datos por aproximación. 

Como limitaciones, presenta la 
del tamaño máximo de un campo, 
que no puede exceder de 255 
caracteres, y que los formatos de 
introducción de datos deben caber 
en una sola pantalla y cada 
campo no puede exceder de una 
línea. La búsqueda admite 
caracteres universales del mismo 
tipo que los utilizados en MS- 
DOS, que son la interrogación 
para una letra y el asterisco para 
una palabra. 



Gráficos 

Las posibilidades que posee 
Symphony para realizar gráficos 
en pantalla resultan francamente 
buenas. Sorprendentemente, a la 
hora de pasar éstos al papel, la 
cosa varía un tanto. No obstante 
el proceso resulta sencillo dado 
que sólo hay que indicar de qué 
fichero de hoja de cálculo se han 
de sacar los datos, y especificar 
los ajustes correspondientes. 

Al hacer los gráficos por 
pantalla, haciendo uso de las 
ventanas, se pueden lograr efectos 
tan interesantes como — por 
ejemplo— presentar los valores de 
la hoja de cálculo, algún texto 
explicativo y el propio gráfico 
simultáneamente, cada parte en 
una ventana. 

A la hora de imprimir, 
desgraciadamente el proceso 
resulta distinto. Primero se 
almacena el gráfico en un fichero 
en disco, y posteriormente otro 



El problema de este 
Upo de programa 

radha en su 
dificultad y sus 
gruesos y cabalísticos 
manuales. 



programa se encarga de mandarlo 
a la impresora. Dentro de una 
misma página, no se puede 
mezclar, debido a este 
procedimiento, gráficos con textos 
o valores de la hoja de cálculo. 
Una lástima... 



Programación Macros 

Symphony posee una serie de 
comandos, que combinados en 
MACROS consigue un altísimo 
nivel de automatización. Un 
MACRO no es más que una lista 
de comandos que se ejecutan uno 
tras otro, al llamarlo con su 
palabra clave. Aunque al principio 
no lo parezca, se pueden lograr 
resultados cómodos y muy 
potentes de esta manera, aunque 
quizá el tiempo necesario para 
aprender y dominar su uso los 
hago poco menos que prohibitivos 
para personas muy ocupadas. 



Documentación 

El paquete viene bien surtido de 
libros. Además, un curso tutorial 
ayuda a entrar dentro de su 
intrincada estructura. En este 
aspecto, se ha hecho un esfuerzo. 
Pero quizá los resultados no son 
los deseados. Libros tan gruesos 
asustan en los primeros contactos, 
y son bastante incómodos de 
consultar. Demasiada materia a 
leer. Aunque por otra parte, esto 
es lógico. Dada la capacidad del 
programa, se hace difícil explicar 
sus recovecos en menos texto. De 
todas maneras, los dos manuales 
se pasan bastante rato pasándose 
la bola, esto es, llamándose el uno 
al otro, con lo que, unido al 
programa en sí, hace que el 
aprendizaje no sea precisamente 
cuestión de unas horitas. 



Conclusión 

No cabe duda de que 
Symphony es un gran paquete. Y 
quizá ahí esté su problema. Si 
necesita una hoja de cálculo, se 
obtienen similares resultados con 
una hoja tipo LOTUS 1-2-3. Una 
base de datos hace el mismo o 
mejor trabajo y lo mismo los 
demás programas. No parece la 
solución ideal, a no ser que se 
necesite de un nivel de integración 
sumamente alto, fuera del alcance 
de paquetes separados, o que le 
guste explorar y aprender poco a 
poco. 
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Cómo copiar 
parte de un dibujo 
en otro 



por Feo. Javier Barceló Taboada 



em Draw es una 
aplicación potente, 
aunque la rapidez no sea 
su virtud principal. Por 
esto, a la hora de ahorrar tiempo 
en la realización de un dibujo, si 
alguna parte de él está grabada en 
otro, o bien el dibujo es 
compuesto, se puede copiar esta 
parte de un dibujo a otro. 

La manera más fácil, aunque 
quizá no la más rápida, sería 
borrar del dibujo final y partir de 
ahí. Pero esto puede no ser 
posible, porque se necesitan partes 
de varios dibujos, por ejemplo. 

En este caso, habrá que realizar 
los siguientes pasos: 

1 . Empezar con una pantalla en 
blanco, o bien, como se dice en el 
apartado anterior, partiendo de 
un dibujo en el que se haya 
borrado todo lo no necesario, de 
manera que quede sólo la parte 
del gráfico a utilizar. Es más fácil 
si al elegir este dibujo se opta por 
aquel que tenga la parte a copiar 
más grande o complicada. 

2. Colocamos la pantalla 
anterior de modo que quede en 
blanco la mayor parte posible de 
la misma. Esto se hace utilizando 
el cursor y las correderas. Un 
buen punto puede ser la esquina 
inferior derecha de los límites del 
dibujo. 

3. Sin cerrar el dibujo, aunque 
conviene grabarlo antes, abrimos 
el siguiente dibujo del que se va a 
tomar un fragmento. Encima de 
la pantalla actual, aparece una 
pantalla más reducida con el 
dibujo cargado. 

4. Seleccionamos la o las partes 
a cambiar del dibujo y pulsando 
el botón izquierdo del ratón 
(aparecerá una mano) movemos la 
parte seleccionada hasta que se 
salga de la pantalla de su dibujo y 
esté encima de la pantalla del 
nuevo dibujo. Soltamos el ratón, 

y ya está copiado en la pantalla 
final. 



5. En caso que vayamos a 
realizar esta operación con más 
dibujos, se cierra la segunda 
pantalla señalando con el ratón la 
esquina superior izquierda de esta 
pantalla, con lo cual aparece otra 
vez sólo el dibujo final. Antes de 
repetir el proceso es más cómodo 
«aparcar» el fragmento nuevo del 
dibujo al lado de los otros, de 
manera que podamos tener la 
pantalla despejada para copiar 
otro fragmento. 

6. Para repetir la operación 
volver al punto tres. 

En muchos casos, según el 
tamaño del fragmento a copiar, 




puede ser necesario variar el 
tamaño del dibujo secundario, o 
incluso seleccionar para el dibujo 
principal el tamaño de página 
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Con el objeto 
seleccionado lo 
desplazamos a la 
pantalla y lo 
dejamos caer en el 
sitio correcto. 
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completa, para disminuir la zona 
de pantalla ocupada. No obstante, 
basta con situar el puntero, al 
mover el fragmento de dibujo 
viejo al nuevo, en cualquier zona 
del dibujo nuevo que no esté 
tapada por la pantalla del dibujo 
viejo, aunque el fragmento que no 
quepa, para que éste quede 
copiado y al desaparecer esta 
pantalla aparezca el fragmento en 
su totalidad. 



DIAGRAMAS 
DE FLUJO 

Dentro de las múltiples 
aplicaciones que tiene Gem Draw, 
y con el uso de una de las 
librerías que acompaña al 
programa, resulta sencillo realizar 
diagramas de flujo, esenciales 
(aunque poco usados, por 
desgracia), dentro de la 
documentación que debe 
acompañar a un programa, para 



poder comprender el modo de 
operar del mismo. Además, tienen 
múltiples aplicaciones en otros 
campos. 

Lo primero es localizar el 
subdirectorio Flujo, bien en el 
disco Gem Draw Bussines library 
o bien, si se tiene instalado el 
programa en el disco duro, como 
directorio del directorio principal. 

Dentro de este subdirectorio 
hay tres dibujos distintos. Cada 
uno de ellos tiene varios signos de 
los utilizados en estos diagramas. 
Lo ideal es tener el diagrama ya 
dibujado en sucio. De esta 
manera, en una pantalla en 
blanco se van copiando un 
ejemplar de cada signo que se 
vaya a utilizar. 

Una vez que se tienen todos los 
signos a utilizar en la pantalla 
principal, sólo queda colocarlos 
en la posición deseada, 
duplicando los signos que se 
necesiten varias veces, unirlos con 
flechas y colocar el texto en las 
posiciones correspondientes. 
Luego, a través de Output se 
imprime el resultado y a empezar 
con la próxima tarea. 




Una de las ventajas de 
Gem Write es la 
facilidad para manejar 
textos por bloques. Esto 
permite copiar bloques de líneas 
en otra zona del documento, 
moverlos a otro lado, e incluso 
copiar bloques en el disco. 

Esta posibilidad permite grabar 
parte del texto para incluirlo en 
otro documento, con lo cual — 
por ejemplo— se puede escribir 
un libro por capítulos y decidir 
posteriormente que determinado 
párrafo esté en otro capítulo, y no 
tienes más que grabarlo por 
separado y cargarlo en el otro 
capítulo. 

Para realizar todo esto es 
necesario «marcar» primero la 
zona de texto. Esto se puede 
realizar de dos maneras. 
La primera, utilizando el ratón, 



Escriba 
por bloques 



consiste en situar el cursor en la 
primera palabra del texto a 
seleccionar y se pulsa el botón 
izquierdo del ratón. Después, sin 
soltar el botón, se mueve el cursor 
a la última palabra del bloque y 
se suelta el botón. Con esto, el 
texto en vídeo inverso queda 
seleccionado. 

La otra manera es similar, per 
utilizando las teclas de función. 
Igual que en la anterior, primero 
hay que situar el cursor en la 
primera palabra a seleccionar. 
Después se pulsa la tecla F5 y 
todo el texto entre este punto y el 
final del texto queda en vídeo 
inverso. Si se desea una zona 
menor, basta con situar el cursor 
de la última palabra de la zona y 
pulsar la tecla F6. Con esto, desde 
ese punto hasta el final del texto 
queda «desseleccionado» yt por 




tanto, en vídeo normal. 

Una vez seleccionado el texto, 
se podrán utilizar las opciones de 
los menús para grabar, SÓLO se 
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graba la zona seleccionada. Ésta 
es la manera de grabar una zona 
de texto, pero si no se tiene 
cuidado se puede creer que se ha 
grabado todo el texto y salir del 
programa, perdiendo el resto del 
texto. 



COMANDOS DENTRO 
DE DOCUMENTOS 

Para realizar determinadas 
funciones y efectos de impresión, 
se incluyen comandos en el texto. 
Para que Gem Write los 
diferencia de textos normales y no 
los imprima, sino que mande el 
significado de los mismos a la 
impresora, hay que teclar en la 
primera y segunda columna de la 
línea un punto (...). Esta línea no 
se cuenta con lo que el paginado 
sigue siendo correcto. Además, de 
esta manera, también se pueden 
poner comentarios que tampoco 
se escribirán en el documento. 

Hay siete comandos que 
reconoce Gem Write sus funciones 
son las siguientes: 

...PAGE indica el final de una 
página. Al imprimirse el 
documento en este punto se 
realiza un salto de página. 
Lógicamente, en la pantalla, 
después de este punto el número 
de líneas vuelve a ser uno en una 
nueva página. 

...HEAD/FOOT seguidos de 
dos números que indican el 
número de línea donde empieza el 
texto de cabecera o pie de página, 
una clave y el texto de dicha 
zona. La clave será un L si el 
texto se desea a la izquierda, una 
R para la derecha, una C para 
centrar el texto y una A para 
alternar el lado de impresión en 
cada página. 

Para numerar las páginas, entre 
el texto de la cabecera deberá 
incluir los signos ## separados por 
un espacio en el lugar donde se 
desea que aparezcan los números. 

Por ejemplo, el comando 
siguiente sitúa una línea de 
cabecera en la línea cuatro de 
cada página, centrado, que indica 
la página. 

...HEAD04CCapítulo 8 pág. 
Núm.: ## 

Capítulo 8 pág. Núm.: 1 

...PGNOn sitúa el valor n como 
número de página, 
independientemente de la cuenta 
que haga Gem Write. De esta 
manera se pueden enlazar unos 
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Las tres fases de la 
grabación de un 
bloque. Realmente 
es sencillo y rápido. 



documentos con otros para que 
tengan numeración correlativa. 

...END para la impresión de un 
documento en ese punto, como si 
del final del documento se tratara. 

...CMDn manda el código 
especial n a la impresora. Esto 
permite enviar los códigos ASCII 
necesarios a la impresora para 
realizar efectos que no estén 
explícitamente comprendidos entre 
los de Gem Write. Y resulta 
sumamente útil en caso de utilizar 
una impresora más potente que la 
Amstrad. 

...GEM es el comando que se 
introduce automáticamente en el 
lugar del texto donde se va a 
intercalar un gráfico. Después del 
comando vendrá el nombre del 
gráfico, con su extensión y el 
nombre del directorio en el que se 



encuentre, si es distinto al del 
documento en cuestión. También 
acompaña al comando el número 
de líneas que ocupa el gráfico 
para tenerlas en cuenta al paginar. 
Si no se tiene activado el modo 
gráfico, aparecería la siguiente 
línea uutmáticamente al cargar un 
dibujo: 

...GEM,20,B:/IMAGES/DIBUJO- 
.GEM 

pero antes de imprimir, es 
conveniente activar los gráficos 
para observar como queda éste en 
la pantalla, pudiendo seleccionarse 
y moverse o copiar a voluntad. 

Estos comandos completan el 
Gem Write ampliando sus, ya, 
muchas posibilidades para crear 
documentos complejos. 
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NfOBrTES 




Pequeño 
pero duro 



Así es el nuevo disco duro de 
20 Mb que comercializa 
Indescomp: tan pequeño como 
una tarjeta, pero tan potente 
como un disco duro 
convencional de media altura. 
Este disco duro tiene la ventaja 
de ocupar un mínimo espacio 
dentro de tu Amstrad PC 1512, 
ya que se aloja en el 
compartimento posterior de la 
unidad central y se conecta a 
uno de los tres slots de 



expansión; por ello, la 
instalación de la disco-tarjeta de 
Indescomp es simplemente 
sencilla: retirar la tapa 
posterior, insertar la tarjeta, 
atornillarla con un 
destornillador de estrella y 
volver a tapar: sin soldaduras ni 
cables extras. 

Para los usuarios del 
Amstrad PC 1512 con dos 
unidades de floppy, les vendrá 
como anillo al dedo, si quieren 
convetir su ordenador en un 
sistema de disco duro. 

En la misma disco-tarjeta se 
incluye el disco duro 



propiamente dicho — un NEC 
de 3 1/2 pulgadas — y la placa 
controladora capaz de manejar 
a la vez un segundo disco duro. 

Con la disco-tarjeta se 
entrega, además, un completo 
manual y un disco de 5 1/4 
pulgadas, que contiene diversas 
aplicaciones para el disco duro, 
como la de la instalación 
en el mismo sistema operativo 
Gem. 

Se ofrece con un año de 
garantía y se vende por 123.988 
ptas. en Chips & Tips, Paseo de 
la Castellana, 126. 28046 
Madrid. Tel.: (91) 262 23 03. 



Spaguetti disco 

Directamente desde Italia nos 
llega esta nueva marca de discos 
de tres pulgadas para su 
utilización en los Amstrad CPC 
664/6128 y PCW 8256/8512. 

Se sirven, o bien en cajas de 
10 unidades o bien como discos 
sueltos, al precio unitario de 
470 ptas. en Informática 
Papelería Plaza de Castilla, 
junto al Asador de la Plaza de 
Castilla de Madrid. Tel.: (91) 
733 22 43. 

Los discos están contenidos 
en una bolsa y con etiquetas 
adhesivas para su identificación. 





Discos de trabajo 

Otro producto de la casa 
británica Acco que traemos a 
las páginas de este número es 
este práctico transportador para 
ocho discos de tres pulgadas, de 
los que se utilizan para el 
Amstrad CPC y PCW. 

No es un archivador, como 
podríamos suponer, ya que 
únicamente puede dar cabida a 
los mencionados ocho discos. Su 



verdadera misión consiste en 
un soporte de pocos discos 
para llevar en mano de casa 
a la oficina, o simplemente 
como estuche de algún 
disco que utilizamos con 
frecuencia. 

Este práctico invento lo 
podréis adquirir en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermúdez 
28040 Madrid. Tel.: (91) 
244 59 36, por 990 ptas. 
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La eterna 
juventud 



Cualquier máquina está 
sometida a un desgaste en 
largos tiempos de utilización. 
En lo que a nosotros nos 
concierne, las unidades de disco 
blando del Amstrad PC 1512 
no son ninguna excepción. Las 
cabezas de lectura de ambas 
caras están expuestas a la 
abrasión causada por el polvo y 
la grasa, entre otros agentes 
malignos que pululan por 
nuestra atmósfera. 

La prevención de este cáncer 
de las unidades de disco, no 
sólo evitará los posibles errores 
de lectura y grabación que se 
puedan producir, sino que, 
además, prolongará la 
longevidad, tanto de las cabezas 
lectoras como de los elementos 
mecánicos del disco. 

La solución que nos propone 
Acco consiste en este práctico 
kit de puesta a punto, que 
incluye un par de discos 
absorbentes limpiadores que se 
introducen en un soporte similar 
al de un disco convencional, y 
un pequeño spray para 
impregnar la superficie de los 
discos limpiadores. 

Si estáis interesados en ello, 
lo podréis encontrar en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermúdez. 
28040 Madrid. Tel.: (91) 
244 59 43, por 3.900 ptas. 





A lo largo 



Para los propietarios de un 
Amstrad PC 1512 que tengan 
problemas por la estrechez de 
su mesa de trabajo, aquí tenéis 
este archivador para discos de 
5 1/4 pulgadas que puede 
recoger en su interior hasta 
un máximo de un centenar de 
discos. 

Por sus dimensiones ocupará 
un mínimo espacio entre la 
impresora y el ordenador, y 
facilitará la consulta y acceso a 



los discos que contiene gracias a 
los 10 separadores que se 
insertarán sobre el fondo del 
archivador. 

Está fabricado en plástico de 
color blanco, a juego con la 
carrocería del PC 1512, con 
tapa en color ahumado 
transparente abatible y con 
cierre por llave. 

Si os interesa el archivador, 
lo encontraréis en Micro- 1, 
Duque de Sesto 50. 28009 
Madrid. Tel.: (91) 275 96 16 y 
cuesta 3.400 ptas. 




Con personalidad 

Si eres de los que se 
identifican con el fenómeno 
Amstrad, o lo que es lo mismo, 
eres un fanático de todo lo que 
inventen los chicos de Alan 
Sugar, aquí te presentamos 
estos discos de 5 1/4 pulgadas 
para tu PC 1512, que no 
sólo llevan la etiqueta de 
tu ordenador favorito, 



sino la misma garantía en 
cuanto a calidad de 
funcionamiento . 

Los encontrarás en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermúdez. 
28040 Madrid. Tel.: (91) 
244 59 36 en cajas de 10 discos 
o en unidades sueltas al precio 
unitario de 250 ptas. 
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Disco duro en tarjeta 
para Amstrad PC 



Hace pocas semanas pasaba por estas 
páginas una versión de disco duro para 
Amstrad de los conocidos como de posición 
horizontal. En este número volvemos sobre el 
tema, pero en esta ocasión con un hard-disc 
vertical. Se trata de la versión oficial ofrecida 
por el importador oficial Amstrad España. 



n disco duro, o no 
Removible que prefieren 
algunos, es básicamente 
un sistema de 
almacenamiento de alta 



Tli 



capacidad, 20 megas en el caso 
que analizamos, y que vienen a 
suponer unos 50 discos flexibles 
de los que en la actualidad posee 
el Amstrad PC. Existen dos 



Un detalle 
de la tarjeta 
controla dora 
donde 
pueden 
apreciarse 
los swiches 
de 

configuración. 




modelos de disco duro de los que 
pueden instalarse en el interior del 
equipo. Por un lado, están los 
horizontales que suelen ir alojados 
en una de las bocas que la carcasa 
de la unidad central trae prevista 
para los floppys. El otro tipo se 
aloja en uno de los slots traseros 
en forma de tarjeta. Esta 
disposición permite al usuario 
seguir trabajando con dos 
unidades de disco, aunque es 
difícil, dada la capacidad del 
disco duro, que esta configuración 
sea necesaria. 

No obstante, aquellos que 
comenzaron con dos disqueteras y 
desean ampliar ahora su equipo, 
pueden optar por un disco duro 
de estas características cuya 
instalación no exije mutilar una 
de las capacidades de su actual 
sistema. 

Otra de las ventajas de los 
discos duros en tarjeta, se 
encuentra en su instalación. Para 
ello lo único que hay que hacer es 
conectar la tarjeta en cualquiera 
de los slots libres. La única 
precaución que debe observarse en 
esta operación es que el 
ordenador se encuentre 
desconectado de la red, ya que de 
no ser así los daños que podemos 
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producir en nuestro equipo 
pueden ser irreparables. 

Tal y como puede observarse en 
la fotografía, la tarjeta 
controladora, y lo que es 
propiamente el disco duro, vienen 
incluidos ambos, uno al lado del 
otro, en la propia tarjeta. 

En la tarjeta controladora 
pueden observarse una serie de 
swiches que permiten utilizar el 
disco duro en distintas 
configuraciones. Tal y como se 
presenta la unidad, puede ser 
utilizada en ordenadores de uno o 
dos floppys, pero en el caso de 
poseer ya un disco duro en el 
interior del equipo, la 
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configuración deberá ser cambiada 
en función del nombre de unidad 
que usted desee asignarle. Para 
esta tarea será su distribuidor el 
que deberá informarle de la nueva 
posición de los conmutadores, ya 
que en el manual que se entrega 
no viene ninguna información 
sobre este tema. 

En nuestro caso, el disco que 
cayó en nuestras manos se 
encontraba ya formateado y nada 
más instalarlo comenzó a 
responder. En su interior tenía ya 
grabado todo el sistema operativo 
y toda la instalación Gem lista 
para su uso. No obstante, si su 
disco duro no presentase estos 
ficheros, puede instalarlo usted 
mismo. Para ello, simplemente, 
una vez formateado y realizadas 
las particiones del DOS, deberá 
ejecutar el fichero bat, 
CONFING, que aparece en el 
disco que deberán entregarle con 
su hard-disc. Tras su ejecución se 
le irá pidiendo que inserte los 



bastará con teclear RD y el 
nombre del subdirectorio a 
borrar. Para que esta ope- 
ración tenga éxito, éste de- 
berá forzosamente encon- 
trarse vacío. 

El retroceso, una vez que 
nos hemos adentrado en la 
estructura del disco, no es 
posible realizarlo nivel a ni- 
vel, y deberemos subir de 
un salto hasta el principio. 
Para ello nos bastará con te- 
clear CD. 

No obstante, y a pesar de 
que usted esté más acos- 
tumbrado a utilizar su com- 
patible desde MS-DOS, to- 
do lo concerniente a la or- 
ganización del disco duro 
lo realizará mucho más fá- 
cilmente desde Gem, con 
simples movimientos de ra- 
tón. 



discos originales, que le dieron 
con su ordenador, los cuales irán 
siendo copiados uno tras uno, y 
metidos en las carpetas que sean 
necesarias. 

En general, los resultados que 
hemos obtenido con el disco han 
sido bastante buenos, con un nivel 
de fiabilidad muy alto y un 
tiempo de acceso más que 
aceptable. De todos los comandos 
de manejo del disco duro que 
posee el DOS, sólo el fichero 
Park, que aparca las cabezas en 
una zona reservada para ello, no 
funciona. Aunque según el 
fabricante esto no es necesario, ni 
ha sido previsto, ya que para su 
transporte, el disco posee un 
sistema automático de fijación de 
las cabezas que impide que éstas 
se deslicen sobre la sensible 
superficie del disco. 



El disco duro completo, arriba la tarjeta 
controladora y abajo la unidad de disco 
propiamente. 




Cómo usar mejor 
el disco duro 

La utilización correcta de 
un disco duro exige aprove- 
char al máximo la estructu- 
ra arborescente que ofrece 
el MS-DOS. 

La situación ideal en nues- 
tro disco duro es que en el 
directorio raíz no aparezca 
ningún fichero ejecutable, 
salvo el fichero Command, 
necesario si queremos que 
nuestro disco duro sirva co- 
mo disco de arranque. 

La creación de nuevos 
subdirectorios o carpetas se 
realiza mediante el coman- 
do MD (make directory). 
Para cambiar del directorio 
actual a un subdirectorio de 
éste, deberemos utilizar la 
instrucción CD (change di- 
rectory). 

Si deseamos borrar un 
subdirectorio ya creado, nos 
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Juego 
de la vida 

En el número tres de AMSTRAD 
Especial publicaron un programa 
sobre el juego de la vida, parte de 
él en Basic y parte en Código 
Máquina. No he tenido problemas 
con la parte en Basic, puesto que 
el menú se muestra en pantalla, 
pero me temo que la parte de 
Código Máquina no está bien 
cargada, ya que al pulsar la 
opción primera, la pantalla, en 
modo 2, muestra el mensaje 
latidos y debajo «Press Play Then 
Any Key». Teniendo un 6128 con 
disco no creo que deba salir ese 
mensaje, por lo que les ruego me 
indiquen la forma de cargar el 
Código Máquina de este 
programa, dirección y longitud en 
bytes del mismo. 

Antonio Puro Morales 

Lo que le ocurre con el 
programa es bastante típico. 
Sucede en un alto porcentaje de 
casos en los que se teclean 
programas en Código Máquina, 
pero a partir de este número de la 
revista nunca más ocurrirá. Para 
eso hemos publicado el cargador 
universal. Vamos al hecho. En 
nuestros ordenadores, el programa 
funciona correctamente. No 
obstante, cuando nosotros, al 
teclear un programa en redacción 
en máquina para probarlo y 
ejecutarlo metemos la pata, que 
también lo hacemos en un alto 
porcentaje de veces, el ordenador 
no se bloquea, sino que aparece 
en pantalla el mismo mensaje que 
usted ha sufrido: «Press Play 
Then Any Key». Para serle 
francos, no nos lo podemos 
explicar, pero ocurre. Y por 
último, estamos en condiciones de 
asegurarle que el listado del 
«Juego de la Vida» está 
absolutamente correcto. 

Bancos 

de memoria 

y Hisoft C 

1. ¿Cómo puedo utilizar el 
segundo banco de memoria en un 
CPC-6128, o en general cualquier 
ampliación, sin necesidad de 



recurrir a programas en Código 
Máquina, con instrucciones Peek, 
Poke, In, Out o semejantes? Me 
interesa esta cuestión para utilizar 
las ampliaciones en programas 
realizados con otros lenguajes, y 
algunos compiladores no admiten 
la inclusión de programas en 
Código Máquina. En concreto, 
con el que pretendo trabajar es el 
compilador C de Hisoft. 

2. ¿Qué utilidad tiene la librería 
EXTCMD.H que viene incluida 
con el compilador C de Hisoft y 
cómo se utilizaría? 

Dylan Hoffman 

No se puede acceder al segundo 
banco de memoria del 6128 desde 
Basic. Le remitimos el artículo 
«Cómo usar el segundo banco de 
memoria del 6128», AMSTRAD 
Semanal número 96, páginas 
46-50, donde el tema se aborda en 
profundidad. 

El fichero del Hisoft C al 
que hace referencia es un 
Header, es decir, un lugar 
donde se hacen una serie de 
definiciones imprescindibles para 
que otras librerías incluidas con el 
compilador ¡as utilicen. Sirve para 
que los programas escritos en este 
lenguaje corran bajo CP/M, 
siendo capaces de manipular 
órdenes del sistema operativo. 



El desprotegedor 

En la revista número 79 
publicásteis un programa 
desprotegedor y, como 
normalmente hacéis, explicáis la 
forma de carga, pero lo que yo 
no sé es la mecánica a seguir, si 
primero cargo el desprotegedor y 
después el programa o si es al 
revés y qué órdenes son las que 
tengo que hacer o que mandar al 
ordenador. 

Ruego me lo expliquen como si 
fueran a hacerlo en un programa, 
paso a paso. Muchas gracias. 

Por cierto, poseo el CPC 664. 

Carlos Santana 

En el artículo del 
desprotegedor hay dos 
programas: el cargador (página 

21) y el listado assembler (página 

22) . El proceso es el siguiente: 
teclee el programa cargador y 



sálvelo en disco antes de 
ejecutarlo. Después, teclee 
la orden: 

CALL &9000 
y listo. Tiene ya a su disposición 
los nuevos comandos. Vamos a 
coger la ocasión al pelo y explicar 
otro punto importante. Hemos 
recibido numerosas cartas de 
lectores indicando que el 
programa no les funciona. 
Nosotros, como de costumbre, 
comparamos el listado de la 
revista con el que tenemos en 
disco, y nos coinciden 
exactamente. Tras un tiempo de 
dudas, hemos averiguado la 
causa: no ejecute nunca la orden 
cat con el desprotegedor en la 
memoria. El ordenador, cuando 
se le pide un catálogo del disco, 
altera la memoria y la usa, 
destruyendo nuestro programa. 



Load Failed 

Trabajando con el programa 
Eamsword (del disco regalo) o 
con Eamplus (AMSTRAD Semanal 
número 77) en mi CPC 6128, 
recientemente adquirido, me 
encuentro con el problema de no 
poder recuperar mediante la 
opción Retrieve, los ficheros 
anteriormente grabados con 
dichos programas. 

Aparece el mensaje «LOAD 
FAILED - RETRY». 

Tras intentarlo en otro aparato 
de las mismas características 
obtengo el mismo resultado. 

Curiosamente en la subrutina de 
carga he borrado de la línea 45000 
la orden ON ERROR GOTO 
4700. Lo intento de nuevo y me 
aparece el mensaje de error 
Improper Argument in 4540. 

Desearía saber, si es posible, y 
si el error está en esa línea, cómo 
arreglarlo. Si no es así, ¿existe 
acaso otra versión de Eamsword 
que pueda correr en este 
ordenador? 

Javier Cordero Regordán 

El programa que usted tiene en 
su mano no funciona bien. Por 
desgracia, está lleno de defectos y 
fallos. Si sus necesidades implican 
un uso frecuente de procesadores 
de textos, le recomendamos que 
escoja otro. La pequeña inversión 



7H AMSTRAD Snnanal 



que va a tener que realizar queda 
compensada con creces por la 
ausencia de problemas y 
«curiosidades» como la que le 
aqueja. 

Problemas 
con 3D 

Munchies 

Tengo una duda sobre el 
programa de la serie oro cuyo 
nombre es 3D Munchies. He 
seguido todas las instrucciones tal 
y como vienen en la revista, pero 
al hacer Run para que se salvara 
la parte binaria, todo va bien 
hasta la línea 270, donde se para 
y sale un mensaje que dice: 
«Overflow type mismatch in 10». 
La línea 270 está bien, al igual 
que todo el programa, pues lo he 
corregido varías veces. Mi 
ordenador es un CPC 6128, no se 
si a ustedes les ha funcionado 
pero lo cierto es que a mí, no. Me 
gustaría que revisaran su listado y 
si el error es suyo lo publicaran 
bien. Si no es suyo y es mío les 
ruego que me perdonen. 

Fernando Aguilar 

No hay nada que perdonar. 
Estamos encantados de intentar 
solucionar los problemas de 
nuestros lectores. El 3D 
Munchies lleva una gran parte en 
máquina, y cualquier error de 
tecleo puede causar un 
comportamiento extraño del 
ordenador. Por ejemplo, es 
posible que le aparezca un 
mensaje de error Basic como el 
que nos cuenta, sin que la línea 
10 tenga nada incorrecto. 
Creemos sinceramente que ha 
cometido un despiste al teclear el 
programa, cosa nada difícil dada 
su longitud. Por favor, revise 
cuidadosamente las Datas. 



Que nosotros sepamos, el 
programa al que se refiere está 
completo. Lo único que ocurre es 
que, en lugar de comenzar en la 
línea 10, comienza en la 110. Eso 
no indica que falten líneas. 
Recuerde: un programa puede 
comenzar por cualquier número 
de línea. 



Cucal 



Cuestión 
de bloques 



Me ha surgido un problema al 
copiar el programa Cucal de la 
revista AMSTRAD Semanal 
número cuatro. Una vez copiado 
todo el listado y repasado, lo 
ejecuté, el juego sale bien en la 
primera pantalla, al pasar a la 
segunda, la parte derecha de la 
pantalla no se borra para cambiar 
las minas y salen muchas más, no 
obstante, se puede jugar. No 
ocurre lo mismo al pasar a la 
tercera pantalla, es totalmente 
imposible pasar a la cuarta por la 
posición de las minas. 

He repasado el listado y está 
igual que el de la revista, pienso si 
dicho juego no será apto para mi 
ordenador, que es un 464, y de no 
ser así ruego me indiquen dónde 
está el error. 

En la misma revista viene Juega 
al Ajedrez y en la «Serie Oro» del 
AMSTRAD Semanal número 72 el 
juego Golf, ¿lo puedo grabar en 
mi 464 sin problemas? 

Pedro Cerda 

Cuando uno teclea un 
programa, existen dos tipos de 
errores: los que hacen que el 
programa se detenga, fáciles de 
localizar y corregir, y aquellos que 
permiten que la cosa funcione, 
pero mal. Creemos que su 
problema proviene de un error 
insidioso de este tipo, y no nos 
proporciona los datos necesarios 
para resolverle el problema. 

El programa Juegue al 
ajedrez corre en un 464 el 
Golf, no. 



Me dirijo a vuestra sección para 
I que me incluyáis en ésta o en otra 
el primer bloque del programa de 
| ajedrez publicado en el AMSTRAD 
Especial número cuatro. 

En este programa faltan las 10 
primeras líneas. 

Jorge Hernández 



Mi golf, 
mi golf 



La presente tiene como motivo 
el solicitarles algunas aclaraciones 
a ciertas dudas surgidas con el 
juego titulado Mi Golf: 



No cargan 




1. ¿Es correcto el teclearlo y 
grabarlo en cinta 
fraccionadamente? 

2. ¿Es éste un juego compatible 
con el CPC 464? 

3. Cuando pongo en marcha el 
programa sólo sale un rectángulo 
de caracteres rojos. ¿A qué es 
debido? 

4. ¿Qué debo hacer para que el 
juego marche bien? 

Por favor explíquemelo paso a 
paso, pues mis nociones de 
informática son escasas. 

Pedro Femenia 

1. Sí, siempre y cuando lo que 
usted teclee en las sesiones 
posteriores a la primera vayan en 
el orden correcto, una tras otra. 

2. No. 

3. A un previsible error de 
tecleo. Necesitamos datos más 
concretos para poder ayudarle, 
cosas como el mensaje de error 
que el ordenador proporciona y 
en qué línea. 

4. Por favor, envíenos una 
carta detallando más su problema 
y revise cuidadosamente el listado. 



Soy propietario de un Amstrad 
CPC 6128 y hace poco me compre 
los juegos Carne Over y Army 
Moves. Al intentar utilizar los 
cargadores modifiqué parte de 
ellos — suprimí las sentencias 
iTape — tengo el juego en disco y 
cambién LOAD "!C por RUN 
"ARM o "GAM, según el juego, 
pero siguen sin funcionar. ¿A qué 
es debido? ¿Acaso no sirven los 
cargadores para disco? Si sirven, 
¿qué debo hacer para que 
funcionen? 

Ramón Rosello 

Los cargadores de estos dos 
juegos son para las versiones de 
cinta. En este mismo número, en 
las páginas de juegos, encontrará 
esos cargadores para disco y unas 
cuantas sorpresas más. 
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LOCOSCRIPT 



Formato 
de los documentos 

por Feo. Javier Barceló Taboada 

En lo que a procesadores de texto diseñados para 
Z80 se refiere, Locoscript se encuentra sin duda 
entre los más potentes. Sin embargo, por desgracia, 
potencia siempre suele ir unido a dificultad de uso. 
Nosotros vamos a intentar que en esta ocasión, esto 

no suceda. 



Iesde la primera 
pantalla se observa que 
Locoscript divide los 
documentos en grupos. 
Esto no sólo tiene el efecto de 
agruparlos de manera que su 
localización sea más rápida, sino 
que además influye en su 
formato. De esta manera, cada 
grupo incluye un fichero llamado 
Plantilla.Est que define el formato 
general de los documentos. 

Este formato, llamado Formato 
Base es el que define la longitud 
de la página y el contenido de las 
cabeceras. Pero esto no restringe 
las posibilidades. Se puede diseñar 
un formato específico para un 
documento, e incluso para una 
parte de un documento. E incluso 
se pueden definir varios formatos 
estándar para uso en documentos 
de ese grupo. Si se diseñan para 
todo el texto, y no sólo para una 
zona, se llaman Plantillas de 
Grupo. 

Para definir un formato, dentro 
de los menús del texto se elige el 
menú de formatos. Dentro de éste 
se puede elegir entre 
cambiar a otro 
definido previamente, 
cambiar el formato 
base y crear uno 
nuevo. Si se elige esto 
último, el programa se 
sitúa en las tres líneas 
superiores, indicando 
los parámetros que se 



pueden modificar. Éstos son el 
paso de letra, el de línea, la 
separación entre líneas, el tipo de 
letra y la activación o 
desactivación de la justificación 
automática del documento. 
Además, se pueden fijar distintos 
márgenes y tabuladores, además 
de un Tabulador Decimal. Este 
fabulador alineará los números de 
distintas líneas de manera que el 
punto decimal de todos ellos esté 
en la misma columna. 

Al editar o modificar un 
formato en una determinada 
posición del texto, sólo los 
caracteres que vayan a 
continuación y hasta la siguiente 
línea de formato se verán 
influidos por el cambio. Para que 
sea todo el texto el que se vea 
afectado, habrá que hacer la 
inserción del formato en la 
primera línea del mismo. Y si se 
desea que éste se grabe para 
posteriores ocasiones, habrá que 
convertirlo en una plantilla de 
formato. 



La utilización de plantillas de 
formato, economiza y mejora 
considerablemente las sesiones de 
trabajo con Locoscript. 



Una plantilla de formato no se 
conforma con definir los 
parámetros antes mencionados. 
En ella se fija el tamaño de la 
página, cómo se distribuyen las 
líneas entre la cabecera y el pie de 
la página, así como las 
características de los textos de 
cabeceras y pies de página, 
situación de las mismas y 
numeración de páginas. También, 
para textos justificados, se fijan 
normas de impresión para 
párrafos y líneas cortadas. 

Las posibilidades de realizar 
textos para las cabeceras y pies es 
muy completa. Se puede optar 
por poner textos diferentes en las 
páginas pares y las impares, así 
como colocar los textos centrados 
o alternados según sea página par 
o impar, y la colocación de los 
números de la página de igual 
forma. 

La plantilla de formato no es 
más que otro fichero de 
Locoscript que se puede editar, 
modificar, copiar o borrar. Al 
llamarse el fichero Plantilla.Est, 
cuando crear otro 
documento, el 
programa lo que hace 
realmente es buscar un 
fichero con este 
nombre, y copiarlo 
con el nombre del 
documento nuevo y 
editarlo. Por ello cada 
grupo debe tener una 
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Plantilla de Grupo. Para el caso 
de que el programa no encuentre 
plantilla en algún grupo, utiliza 
una plantilla propia por defecto. 
Ésta viene preparada para papel 
A4 en paso de doce carateres por 
pulgada. 

Si al crear una plantilla de 
grupo se definen varios formatos 
standar, a los que el programa 
dará un número, al funcionar con 
dicha plantilla se pueden utilizar 
con elegir la opción de cambiar 
formato durante la edición. Si se 
tiene activada la función mostrar 
regla, se verá que aparece la 
nueva regla de formato en el 
punto donde estaba el cursor 
cuando se seleccionó la opción. 
De esta manera se pueden 
cambiar con poco trabajo el 
formato de un texto cuantas veces 
se quiera. 

Además de todo esto, se puede 
elegir que se impriman los ceros 
con o sin barra inclinada, si la 
coma es un punto o una coma, y 
el número máximo de formatos 
que se van a crear, hasta un límite 
de 99. Fijar un número 
excesivamente mayor al de los 
formatos que realmente vamos a 
crear es un desperdicio de 
memoria y espacio en disco. 



Para evitarse el paso por los 
distintos menús cuando se ha 
practicado un poco con el 
programa, basta con teclear las 
teclas más o menos que estén al 
lado de la barra espaciadora, y la 
abreviatura del código deseado. 
La abreviatura más rápida es la 
compuesta por las letras en 
mayúsculas que aparecen en los 
menús. Pero tampoco es necesario 
saberse todas ellas, dado que el 
programa analiza los caracteres 
introducidos hasta que da con un 



código que contenga, aunque sea 
en otro orden, las letras 
introducidas hasta el momento. 
En cuanto encuentre un sólo 
código que cumpla esta condición 
ejecuta la orden sin esperar a 
pulsar INTRO. De esta manera el 
manejo de las opciones gana 
mucho en velocidad. 

Y como intermedio, existe un 
menú intermedio, donde están 
contempladas algunas funciones, 
las más utilizadas, de manera que 
tampoco haya que recorrer los 
menús para llegar a una función 
determinada. 



Para realizar documentos 
comerciales, en los que hay 
cantidad de frases que se repiten, 
se puede utilizar una facilidad 
parecida a la de los bloques. Cada 
grupo de textos puede contener un 
fichero llamado FRASES. EST, 
que contenga hasta 29 frases, 
llamadas desde A hasta Z, y que 
pueden ser introducidas en el 
texto de manera muy rápida. Las 
limitaciones de este fichero son 
que cada frase no debe ser mayor 
de 255 caracteres, pero teniendo 
en cuenta que el máximo de 
caracteres por fichero debe ser 
mayor de 550. Esto es una 
pequeña limitación, pero se puede 
obviar relativamente teniendo 
varios ficheros. Sólo uno podrá 
tener la extensión .EXT, pero se 
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pueden renombrar según cuál se 
vaya a utilizar. 

Para utilizar esta función, hay 
que recurrir al menú de bloques. 
En éste aparece un recuadro que 
pone FRASES y una serie de 
letras. Estas letras corresponden a 
las que todavía no están usadas en 
el fichero FRASES. EST 
correspondiente al grupo del 
fichero editado. Pulsando una de 
ellas, el texto que haya sido 
seleccionado previamente es 
grabado incluido en el fichero de 
frases. Si por el contrario, se elige 
una frase que ya exista, ésta 
queda insertada en la posición 
donde estuviese el cursor en el 
momento en el que se invocó el 
menú. 

El problema de la justificación 
automática es que en una línea 
puede haber pocas palabras y muy 
grandes. En este caso, 
normalmente al justificar quedan 
espacios excesivamente grandes 
entre las palabras. El efecto visual 
que esto produce es bastante 
desagradable. 

Esto se puede remediar 
manualmente, insertando un guión 
y un espacio a continuación. Pero 
si posteriormente se insertan 
palabras antes de ésta, al volver a 
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justificar el guión no queda en la 
posición deseada. 

La manera de evitar esto es 
utilizar una facilidad de 
LOCOSCRIPT llamada Guión 
Blando. Esto se hace desde el 
menú de control de líneas. Al 
activar esta opción, el programa 
inserta el guión en la posición del 
cursor. Pero si posteriormente se 
modifica el texto, y este guión no 
coincide con la última columna 
de] texto, es eliminado y la 
palabra unida otra vez. De esta 
manera se evitan bastantes 
manipulaciones en el texto. 



La presentación de 
textos e informes 
puede ser prácticamente 
perfecta conociendo 

algunas de las 
capacidades de este 
brillante precesador de 
texto. 



De la misma forma, cuando se 
va a teclear una serie de palabras, 
con signos en medio, pero sin 
espacio, LOCOSCRIPT tratará 
todas ellas como si fueran una 




sola, y o bien las cambiará de 
línea todas o bien insertará un 
guión en un sitio donde vaya 
mejor un espacio. Para estos 
casos es preferible elegir separar 
todas las palabras por espacios 
blancos. De esta manera al 
justificar, si se encuentra un 
espacio en blanco en la última 
columna de una línea, pone el 
resto de la palabra en la siguiente. 
Y si luego al reformatear cabe 
toda la palabra junta, el 
programa suprime el espacio. 



SANGRADO 

En determinados documentos, 
es necesario que una parte del 
documento tenga un margen 
izquierdo más pequeño que el del 
resto del documento. Esto se 
podría lograr insertando un 
formato distinto. Pero si sólo se 
desea reducior el margen en un 
párrafo, es más rápido hacerlo de 
otro modo. 

Esto se realiza creando un 
tabulador de sangrado, o 
fabulador francés. Se realiza 
llevando el cursor a la columna 
donde se desea el margen, y 
pulsando las teclas ALT y TAB. 
Desde ese momento, y hasta que 
se teclee intro, esto es cuando se 
teclee punto y aparte, el programa 
justifica según el nuevo margen. 
Una vez pulsado INTRO el 
tabulador se convierte en un 
tabulador normal, perdiendo ese 
efecto. 



Gane wo.ooo ptas. con 
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I orque pretendemos que AMSTRAD personal sea 
también su revista, tenemos uno sección en lo que son 
publicados los mejores programas originales recibidos en 
nuestra redacción. Ustedes serán los encargados de rea- 
lizar estos páginas, en las que podrán aportar ideas y 
programos interesantes para otros lectores. 
Las condiciones son sencillas: 

- Los programas se enviarán a AMSTRAD personal 
en uno cinta de cassette o disco, sin protección en el soft- 
ware, de forma que seo posible obenter un listado de los 
mismos. 

- Cada programa debe ir acompañado de un texto 
explicativo en el cual se incluyan: 

- Descripción general del programo. 

- Tabla de subrutinas y variables utilizados, explican- 
do claramente la función de cada una de ellas. 

- Instrucciones de manejo. 

- Todos estos datos deberán ir escritos a máquina o 



con letra clara paro mayor comprensión del programa. 

- No se admitirán programas que contengan carac- 
teres de control, debido o que no son correctamente in- 
terpretados por los impresoras. 

- En una sool cinta puede introducirse más de un pro- 
grama. 

- Una vez publicado, AMSTRAD personal abo- 
nará al autor del programa de 15.000 a 100.000 pe- 
setas, en concepto de derechos de autor. 

- Los autores de los programas seleccionados pora 
su publicación, recibirán una comunicación escrita de ello 
en un plazo no superior a tres meses a partir de la fecha 
en que su programa llegue a nuestra redacción. 

- AMSTRAD personal se reservo el derecho de 
publicoción o no del programa. 

- Todos los programas recibidos quedarán en poder 
de AMSTRAD personal. 

- Los programas sospechosos de plogio serán elimi- 
nados inmediatamente. 



¡ENVIENOS 
SU PROGRAMA! 

Adjuntando los siguientes datos: 

Nombre y apellidos, 
dirección y teléfono 

Indicando claramente en el sobre: 

REF. SERIE ORO 
AMSTRAD personal 

a HOBBY PRESS, S. A. 
Ctra. de Irún, km 12,400 




Así será nuestra cabecera, a partir del próximo mes. 
AMSTRAD SEMANAL se convierte en AMSTRAD PERSONAL 
MENSUAL, con muchas más páginas, para que en cada número 
encuentre más información sobre su modelo de ordenador. 

PIDA AMSTRAD PERSONAL 



Con la calidad de siempre... 
y mucho más. 
No se lo pierda. 
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FICHA TECNICA 

FERNANDO MARTIN 
BASKET MASTER 



• 1 6 2 JUGADORES • 3 NIVELES 
DE JUEGO • TIRO DE 6.26 

• 8 TIPOS DE MATE 
• 6 ESTRATEGIAS DIFERENTES 

• ESTADISTICA DE PORCENTAJES 
Y TANTEO • INFRACCIONES 

• REPETICIONES DE MATES 
AMPLIADOS Y EN CAMARA LENTA 



